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2.0 OPERATING REQUIREMENTS 
2.1 HARDWARE REQUIREMENTS 


FORMATT 
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THE FOLLOWING MINIMUM HARDWARE CONFIGURATION, TO BE 
OOanATiERs 1S REQUIRED TO LOAD AND EXECUTE THE RM80 SUBSYSTEM 


PDP=11/70 PROCESSOR 
MEMORY 
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16 
16 KWil-L OR KWii-P CLOCK 
16 PROGRAM LOADING DEVICE 
16 TERM rt 
16 ante mao St 
19 1 Onn Disk DRIVES 
5 
12 2.2 PREREQUISITE DIAGNOSTIC PROGRAMS 


RM8O DISKLESS TEST, PART 1 AND 2 
3.0 OPERATING PROCEDURE 
3.1 LOADING 

THE PROGRAM MAY BE LOADED FROM ANY XXDP MEDIA. 
3.2 SWITCH OPTIONS 


THE PROGRAM DOES NOT SUPPORT ANY HARDWARE OR SOFTWARE SWITCH 
REGISTER OPTIONS. 


3.3 STARTING 
THE PROGRAM MUST BE STARTE 
LOCATION 200 GETS OVER 
CANNOT BE RESTARTED AFTER 
3.4 HALTING 


THE PROGRAM CAN BE HALTED BY PRESSING THE HALT SWITCH ON THE 
PROCESSOR FRONT PANEL. 


NOTE: ONCE THE PROGRAM [IS HALTED, IT CAN ONLY BE RESTARTED BY 
PRESSING CONTINUE ON THE PROCESSOR FRONT PANEL OR RELOADING 
THE PROGRAM AND STARTING AT ADDRESS 200 . 


3.5 RESTARTING 
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T LOCATION 200 HOWEVER, BECAUSE 
TTEN BY THE 1 Al MONITOR, THE PROGRAM 
NITIAL START 


SeVKBRrVxs “oO wt fet 40 


00 THE PROGRAM CAN ONLY BE RESTARTED BY RELOADING THE PROGRAM AND 
a STARTING AT ADDRESS 200 . 

Soe 4.0 OPERATOR INTERFACE 

oon 4.1 PROGRAM IDENTIFICATION 

207 THE PROGRAM TYPES ITS TITLE THE FIRST TIME IT IS STARTED AFTER 
soe BEING LOADED. 


4.2 CONSOLE DIALOGUE 


THE PROGRAM ENTERS A CONSOLE DIALOGUE SEQUENCE AFTER TYPING THE 
PROGRAM IDENTIFICATION. 


UPON STARTING THE PROGRAM, THE FOLLOWING PROMPT WILL ASK THE USER 
TO SPECIFY WHICH DRIVE IS TO BE FORMATTED. 
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"DRIVE @: ° 
eres THE DRIVE ADDR 


So 


WED BY CARRIAGE RETURN. 


ESS NUMBER (0-7) FOLL 
THE SELECTED DRIVE IS NOT AVAILABLE, THE PROGRAM WILL TYPE AN 
ERROR MESSAGE AND RETURN TO THE THIS PROMPT. 
NOTE: ONLY ONE DRIVE CAN BE FORMATTED AT A TIME. THIS PROGRAM DOES 
NOT ALLOW MULTIPLE DRIVE FORMATTING. 
AFTER THE USER HAS SELECTED THE DRIVE TO BE FOR RMAT IED, THE PROGRAM 
WILL ASK FOR AN OPTION TO BE SELECTED WI1H THE FOLLOWING PROMPT. 


‘OPTIONS: ° 
THE COMMANDS AVAILABLE FOR THE OPTION PROMPT ARE AS FOLLOWS: 
IN sup TEAL ze ALL THE BAD SECTOR FILES (DEC STD 144 AND 


NOTE: THE ee oe COMMAND WILL DESTROY THE CONTENTS 
OF ALL THE BAD SECTOR FILES (DEC STD 144 AND 


FO FORMAT THE DISK. (ALL CYLINDERS 0 - 560.) 
<CR> SAME AS ‘FO COMMAND- 


FO:F cOnnaT ee CYLINDERS ONLY. (CYL 559., TRK 2- CYL 


LI LIST THE PHYICAL ADDRESSES OF THE hg SER ” ALL THE 
BAD SECTOR FILES (DEC STD 144 FILES AND SSF) 


Li:L LIST THE erit Te ADDRESSES OF THE DEFECTS IN THE DEC 
aeeaccdse) FILES. (SSF DOES NOT CONTAIN ANY LOGICAL 


VFL=N VERIFY SECTOR COUNT. WHERE 'N' IS THE NUMBER OF TIMES 
TO REREAD A TRACK DURING VERIFY OPERATION. THE 
DEFAULT [5.1 (RANGE 1-256.)- AFTER, COMPLETING |THE 


ERL=N ERROR LIMIT COUNT, WHERE cn’ IS THE NUMBER OF ERRORS 
ALLOWED BEFORE THE FORMAT I S ABORTED. THE DEFAULT IS 
6 (RANGE 1-256. AFTER COMPLETING THE FORMAT, ‘N° 
WILL RETURN TO ITS DEFAULE VALUE . 


CSR=N RM BASE ADDRESS WHERE 1 S THE ADDRESS OF RMCS1_ IN 
0 DEFAULT IS 176700. AFTER COMPLETING THE 
FORMAT, Ne EILL ALE AIN, irs CHANGED VALUE. 


RM VECTOR ADDRESS, WHERE ‘N* [IS THE ADDRESS OF 
INTERRUPT ADDRESS IN OCTAL. THE DEFAULT IS 254. AFTER 
ae THE FORMAT, "N® WILL RETAIN ITS CHANGED 


VEC=N 


SEQ C005 
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275 
276 THE USER MAY STRING ANY COMBINATION OF COMMAND OPTIONS TOGETHER By 
277 USING A SLASH (/) TO SEPARATE THE COMM NLY 
278 CARRIAGE RETURN IS TYPE FOR THE OPTION PROMPT THe PROGRAM WILL 60 
279 INTO FORMAT (FO) MODE USING THE DEFAULT PARAMETERS. 
$e) EXAMPLE #1: 
283 OPTION: FO/CSR=176000/VEC=260/VFL=3/ERL=10<CR> 
285 THE ABOVE COMMAND INDICATES THAT THE NTIRE DISK WILL BE FORMATTED 
286 THE MCS) ADDRESS WILL BE SET TO 176000, THE VECTOR ADDRESS WILL BE 
287 SET TO 260, THE VERIFY COUNT WILL BE SEf TO 3 AND ERROR LIMIT WILL 
288 BE SET TO 10. 
$50 
291 THE FOLLOWING PROMPT WILL OCCUR IF THE OPTION SPECIFIED WAS AN 
292 INITIALIZE (IN) OR FORMAT (FO) COMMAND. 
$3¢ "CONTINUE (L) N? ° 
296 IF THE RESPONSE TO THIS PROMPT IS A ‘N* FOLLOWED BY A CARRIAGE 
297 RETURN OR JUST A CARRIAGE RETURN, THE PROGRAM WILL ABORT THE 
298 CURRENT COMMAND AND RETURN TO THE DRIVE PROMPT. IF THE RESPONSE IS 
299 A 'Y" FOLLOWED BY A CARRI AGE RETURN, THE PROGRAM WILL CONTINUE TO 
300 THE NEXT STEP IN THE CURRENT COMMAND OPTION. 
302 
303 THE FOLLOWING PROMPT WILL OCCUR IF THE OPTION SPECIFIED WAS A 
304 FORMAT (FO) COMMAND. 
306 "UPDATE MODE (L) N? ° 
308 IF THE RESPONSE TO THIS PROMPT IS A 'N’ FOLLOWED BY A CARRIAGE 
309 RETURN OR JUST A CARRIAGE RETURN, THE PROGRAM WILL ABORT THE 
310 CURRENT COMMAND AND RETURN TO THE DRIVE PROMPT. IF THE RESPONSE IS 
A *Y® FOLLOWED BY A CARRIAGE RETURN, THE PROGRAM WILL ENTER THE 
MANUAL BAD SECTOR UPDATE ROUTINE. 
THE FOLLOWING TWO PROMPTS WILL OCCUR IF THE OPTION SPECIFIED WAS AN 
INITIALIZE (IN) OR FORMAT (FO) COMMAND. 
a 


"ENTER DATE (DD-MMM-YY): 


THE DATE IS ENTERED BY TYPING A DAY IN DECIMAL, THE FIRST 3 LETTERS 
OF THE MONTH AND THE LAST TWO DECIMAL DIGITS OF THE YEAR. 


AFTER ENTERING THE DATE, THE PROGRAM WILL PROMPT THE USER FOR THE 
HDA SERIAL NUMBER AS FOLLOWS: 


"HDA SERIAL NUMBER: ‘ 
Ye SERIAL NUMBER CAN BE ANY DECIMAL NUMBER UP TO 10. DIGITS IN 
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IF THE OPTION WAS A FORMAT (FO) COMMAND AND THE USER HAS ENTERED 
THE MANUAL UPDATE MODE, THE FOLLOWING PROMPT WILL BE TYPED TO ALLOW 
THE ENTERING OF SECTORS INTO THE BAD SECTOR FILES. 

‘ENTER BAD SECTR ADRS 

CYL, TRK,SEC = ' 
THE BAD SECTOR ENTRY IS ENTERED BY TYPING THE CYLINDER ADDRESS, 
TRACK ADDRESS AND SECTOR ADDRESS IN DECIMAL, FOLLOWED BY A CARRIAGE 

TO TERMNATE THE BAD SECTOR ENTRY LIst. TYPE A CARRIAGE 

RETURN IN RESPONSE TO THE ENTRY PROMPT, 

IF THE BAD SECTOR HAS A HEADER ERROR OR DRIVE TIMING ERROR (EXAMPLE 
#2), THE LETTER ‘H"' (HEADER DEFECT) MUST FOLLOW THE DEFECT 
INDICATED. THIS WILL INDICATE TO THE PROGRAM, WHICH FILE (SSF OR 

DEC STD 144) THE DEFECT MUST BE STORED IN. 


EXAMPLE #1: 


ENTER BAD SECTR ADRS: 
CYL,TRK,SEC = 525,4,25<CR>~ ; 


CYL, TRK,SEC = <CR> : 
IS DEFECT (EXAMPLE #1) IS NOT ALR 
TH DEFECT WILL BE ENTERED A 
ON FOR MORE DETAILS) 
EXAMPLE #2: 


ENTER BAD SECTR ADRS: 


EFECT CYL 524., TRK 4., SEC 
RMINATE INPUT 


5 
E 
gt IN THE SKIP SECTOR 


D 
2 
T 
E IL 
A SKIP SECTOR Ef"RY. (SE 


IF TH E 
(SSF) E 
SECTION 


CYL,TRK,SEC = 525,4,25H<CR> 4 he CYL eit TRK 4., SEC 
25. (HEADER ER®.OR) 
CYL,TRK,SEC = <CR> ; TERMINATE INPUT 
THIS SECTOR (EXAMPLE #2) WILL NOT BE ENTERED AS A SKIPPED SECTOR, 
tity A Pe i: ERROR WAS FLAGGED BY THE USER, BY PLACING THE 
LETTER AFTER THE DEFECT. THE DEFECT WILL BE ENTERED IN THE 
MANUFACTURES SECTION OF THE DEC STD 144 FILE. (SEE SECTION 7.0 FOR 


MORE DETAILS) 

NOTE: THE LETTER LOCATED WITHIN THE BRACKETS () INDICATES THE TYPE 
OF RESPONSE REQUIRED asd THE USER, D=DECIMAL, O=OCTAL AND 
L=LETTER. 

WARNING MESSAGES 

WARNING MESSAGES WILL BE TYPED AT THE Ae geal TIME DURING THE 

PROGRAM TO NOTIFY THE USER THAT THE CONTENTS OF THE HDA Witt BE 
LOST. THE FOLLOWING MESSAGE WILL BE TYPED BEFORE INITIALIZING OR 
FORMATTING THE HDA. 

*a® WARNING = DATA WILL BE LOST ON DRN: **° 


TO FURTHER WARN THE USER, THE FOLLOWING MESSAGE WILL BE TYPED JUST 
BEFORE INITIALIZING THE HDA. 


SEQ 0007 
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4.5 


4.6 


4.7 


4.8 


5.0 


5.1 


5.2 


5.3 


*s* WARNING = BAD SECTOR FILES WILL BE OVERWRITTEN ON DRN: **° 
FOLLOWING sect WARNING MESSAGE, THE USER IS oo at THE OPPORTUNITY 
TO TERMINATE THE PROGRAM WITHOUT DESTROYING THE DATA ON HDA, BY 
RESPONSING TO A PROGRAM PROMPT MESSAGE. (SEE SECTION 4.2) 

PROGRESS REPORTS 
NO PROGRESS REPORTS ARE GIVEN DURING THE EXECUTION OF THE PROGRAM. 
PERFORMANCE REPORT 


NO PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF THE 
PROGRAM. 


PROGRAM HALTS 
THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF THE PROGRAM. 
ERROR REPORTS 


THE FIRST LINE CONTAINS THE ERROR MESSAGE: ONE LINc OF TEYT WHICH 
GIVES A BRIEF DESCRIPTION OF T ERROR. THE ERROR MESSAGE IS 
OLLOWED BY ONE LINE CONTAINING DATA _HEADERS AND DASA PERTININENT 
TO THE ERROR. THE LAST LINE CONTAINS THE DECIMAL REWUIVALENT OF 
Lh Fe AND RMDA REGISTERS, WHICH INDICATE WHERE THE ERROR 


we PRINTOUT SHOWS A TYPICAL ERROR MESSAGE FOR THIS 


marti estase ERROR DUR Ne VERIFY 
RMCS1=144252 RMCS2 <3 300 aris saasicnad RMER2=000000 RMDA=001014 
CYLINDER=559. TRACK=2. SECTOR=11 
EXECUTION TIME 
ONE PASS OF THE PROGRAM TAKES ABOUT 20 MINUTES. 
ENVIRONMENTAL SUPPORT 
PROCESSOR COMPATIBILITY 
THE RMB8O SUBSYSTEM FORMATTER IS EXECUTABLE ON PDP-11/70 
elaine PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE 
DUAL PORT CONFIGURATIONS 
THE a a) er an Mag HEL DOES NOT SPECIFICALLY TEST DUAL PORT 
LOGIC THE RM8O ADAPTER BUT IS EXECUTABLE ON RM80 ee ae 
HAVING THE DUAL PORT OPTION PROVIDING THE DUAL PORT SWITCH IS SET 
TO THE APPROPRIATE PORT (A OR B). 


MEMORY PARITY HARDWARE 


SEQ 0008 
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202 


5.6 


5.7 


6.0 
6.1 


MEMORY PARITY HARDWARE IS NOT USED DURING THE EXECUTION OF THE RM 
SUBSYSTEM FORMATTER. , E EXECUTION OF THE RMBO 


MEMORY MANAGEMENT HARDWARE 


| mattia HARDWARE IS NOT USED DURING THE RMB8O SUBSYSTEM 


FORMA 
ACT11, APT11 COMPATIBILITY 


THE RMBO SUBSYSTEM FORMATTER IS COMPATIBLE WITH ACT11 AND APT11 IN 


DUMP MODE ONLY. 
XXDP COMPATIBILITY 
ata SUSBYSTEM FORMATTER IS COMPATIBLE WITH XXDP IN DUMP MODE 


OPERATING SYSTEM COMPATIBILITY 


THE PROGRAM IS NOT COMPATIBLE WITH ANY OPERATING SYSTEM WHEN IT IS 
ASSEMBLED AS AN XXDP STANDALONE PROGRAM. 


FORMAT DESCRIPTION 
FORMAT PROCESS 


THE FORMATTER USES THE DEC STD 144 MFG AND USER FILES AND THE 
He gaa SECTOR FILE TO RECONSTRUCT (SEE SECTION 7) AN HDA‘S 16 BIT 

FACTORY FORMAT AND ATT TO FIND ADDITIONAL DEFECTS’ BY 
PERFORMING A FUNCTIONAL MEDIA VERIFICATION. 


BEFORE FORMATTING BEGINS, THE ee WILL READ AND VERIFY THE 
DEC STD 144 FILES AND THE SSF val ne bi ag FILES CONTROL THE 

MARKING S ON THE HDA. THE PROGRAM WILL READ AND 
VERIFY THE DEFECT FILES USING THE FOLLOWING PROCEDURE: 


1. EACH COPY OF THE SKIPPED SECTOR FILE (SSF) IS READ UNTIL 
GOOD READ OCCURS AND THE HEADER AND DATA FIELDS ARE VALIDATED 
USING THE INTERNAL CHECKSUMS. 


2, STARTING WITH THE PRIMARY DEC STD 144 TRACK (CYL 558., TRK 

CONTINUING TO THE SECONDARY DEC STD 144 TRACK (CYL 

559.. TRK 1.), THE PROGRAM WILL READ EACH COPY OF THE 16 BIT 

MANUFACTURING AND USER'S DEC STD 144 FILE UNTIL A GOOD READ 
OCCURS AND THE INTERNAL FORMAT OF EACH FILE IS VALIDATED. 


3. VERIFY THAT THE HDA SERIAL NUMBERS IN THE DEC STD 144 


(MANUFACTURING AND USER) FILE AGREE — THE SERIAL NUMBER IN 
F THE SERI NUMB STD 


THE SSF. AL THE DEC 144 
(MANUFACTURING OR a FILE DOES NOT COMPARE WITH THE SERIAL 
NUMBER IN THE SSF, THEN THE NEXT COPY OF THE FILE IN ERROR IS 
READ AND VALIDATED. 


4. VERIFY (THAT THE DISK ADDRESSES IN THE DEC STD 144 
{MANUFACTURING AND USER) FILE ARE VALID RM80 ADDRESSES. IF 


SEQ 0009 
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AFTER A_TRACK HAS BEEN 
NEWLY DETECTED ERRORS. 


File HAS BEEN UPDATED. 


BOTH THE SSF AND THE 
DEFECT ENTRIES ARE IN 
FILES AND THE SKIPPED 
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BIT MODE SSF WIL 
MODE FORMAT. 


IF, DURING THE FORMAT 
THE TOTAL NUMBER OF DE 


TH x 
ERROR MESSAGE TO THIS 
PROCESS USING ONLY TH 
UDBSF, AND THE SSF. 
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ATION. 

IN 16 BIT MODE, ALLOWS A LL 32 
RITE HEADER AND DATA COMMAND, 
FORMATTED IN 16 BIT MODE USING 
THE DATA PORTION OF EACH SECTOR. 


CHECK HEADER AND DATA COMMAND, EACH TRACK IS 
A DATA ERROR OCCUR 
16 BIT STD 144 


" SEQUE S 
SECTOR IS SAVED 
PROGR 


504 

505 AN ADDRESS ERROR F 
506 CONSIDERED CORRUPTED AND T 
307 WILL BE READ AND VALIDATED. 
509 AFTER VERIFYING THE 

510 CURITE HEADER AND DATA) AND 

511 ALL 32 SECTORS OF EACH TRACK 
312 BIT DATA PATTERN TO FILL THE D 
314 155555 133333 (OCTAL) 

16 

17 

18 

19 RMOF REGISTER 

20 SETTING THIS BIT 

21 SECTORS ON THE TRA 

23 USING A W 

24 SECTORS) 1S 

25 PATTERN FOR 

27 2. USING A WRITE 

28 READ 1 TIME. IF 

29 LISTED IN EITHER 

30 SECTOR IS READ 20 

31 REREAD SEQUENCE, 

32 ADDRESS OF THE FA 

33 DEFECT LIST. 

REMAINDER OF THE 


HE TRACK IS REFORMATTED WITH 
REVIOUSLY DETECTED ERRORS AND 


ms * Rowe] 


BAD SECTOR MARKINGS BAS 


THE PRIMARY AND SECONDARY DEC STD 144 TRACKS (CYL 558 

CYL 559 TRK_ 1, RESPECTIVELY), THE SSF TRACK (CYL 5 

THE FE AREA WILL BE REFORMATTED. 

THE SSF REVISION NUMBER AND DATE WILL BE UPDATED ONLY 

ES WILL BE SORTED SO THAT 
BIT DEC STD 

L BE REWRITTEN. 


D 144 FILE RECORDS AND THE 18 


NOTE: THE 18 BIT MODE | 
NULL RECORDS DURING A 16 BIT 


R_ INFORMATION ALREADY IN 
ER, UNDER THESE CIRCUMSTAN 


OR WILL BE 
IN ERROR 


HF PROGRAM WILL THEN FORMAT 

HEADER AND DATA) 
E USING THE FOLLOWING 32 
D OF EACH SECTOR. 


OR DB6DB6DB (HEX) 
THE FOLLOWING SEQUENCE IS USED FOR FORMATTING: 


1. THE SKIPPED SECTOR ERROR INHIBIT BIT (SS 
F SET BEFORE EACH WRI 


E 


EACH TRACK (32 
THE DATA 


NOT 
SF, THE 


E ND THE 
THE APPROPRIATE 
THEN CONTINUES CHECKING THE 


THE 
ANY 


AND 
AND 


SSF 


THE 
144 


TECTED DEFECTS CAUSES 
HE UDBSF TO EXCEED 
AND DISPLAYS AN 
ARTS THE FORMAT 


THE MDBSF, 
WILL 
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562 

563 WRITE THE TRACK STRUCTU CURED 
564 CORRECTLY. ON LY NO MEDIA WILL AT THE 
565 OPERATOR WILL MAKE THE DET HE E AND IF 
66 IT IS TO BE REPL EEED” 

568 7.0 RECONSTRUCTION DESCRIPTION 

570 7.1 OLD DEFECTS 

$72 THE TRACK IS RECONSTRUCTE 16 
O03 BIT MDBSF, THE 16 BIT UDB 

575 1. THE SSF IS CHECKED T : AN 
576 ENTRY EXISTS, THE S F THE SECTOR 
577 LISTED AND IN AL Ow! HE END OF THE 
578 CURRENT TRACK. (SEE SECTION 5° 2) 

580 2. THE DEC STD 144 FILE IS CHECKED FOR ANY ENTRIES ON THE 
381 CURRENT TRACK. 

583 FOR DEC STD 144 £ CH OCCUR BEFORE A SKIPPED SECTOR 
584 OR ON A TRACK WHICH PED 

585 APPROPRIATE HEADER ESET. (MF OR UF, ACCORDING is THE 
586 FILE CONTAINING TH A LSO, 

587 ADDRESS (PHYSICAL AD THE DEEECT 1S tISfED HF THE DEC 
age ioe STD 144 FILE. (SEE 1A 

590 FOR DEC STD 144 ENTR OCCUR AFTER A SKIPPED SECTOR, 
591 THE APPROPRIATE HE S ESET (MF OR UF, ACCORDING TO 
92 THE FILE CONTAINING C HE DEFECT IS 
593 LISTED IN THE DE 4 PILE BY LOGICAL ADDRESS. (SEE 
23 SECTION 9.4 = 9.11) CAL SS IS: 

96 LOGICAL ADDRESS = PHYSICAL(CYL.TRK,SEC-1) 

235 7.2 NEW DEFECTS 

600 NEWLY DETECTED ERRORS ON TRACKS WHICH ALREADY HAVE ERRORS, ARE 

601 HANDLED AS FOLLOWS: 

603 1. IF THE ERROR OCCURS BEFORE A SKIPPED SECTOR OR IF THERE IS NO 
604 SSF ENTRY FOR THE CURRENT TRACK, THE PHYSICAL ADDRESS OF THE 
605 SECTOR IS ENTERED 6 BIT UDBSF AND THE UF BIT IN THE 
606 HEADER OF EACH ERRORED SECTOR IS RESET. (SEE SECTION 9.1 AND 
508 : 

&C9 2. IF THE ERROR OCCURS AFTER A SKIPPED SECTOR. THE LOGICAL 
610 ADDRESS OF THE SECTOR IS ENTERED 6 BIT UDBSF AND THE 
611 UF BIT IN THE HEADER OF EACH PRRORED SECTOR IS RESET. (SEE 
612 SECTION 9.4 - 9.10) THE LOGICAL ADDRESS IS: 

614 LOGICAL ADDRESS = PHYSICAL(CYL,TRK,SEC-1) 

616 ADDITIONALLY, IF HEADER RELATED 
617 ERROR, THE SECT CAL ADDRESS IS ALSO ENTERED IN THE 
618 16 BIT UDBSF. (S 5) , IF THE HEADER ERROR 


SEQ 0011 
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DETEC 


ING STARTS WITH THE FIRST (PRIMARY), NON-HEADER 
RACK. THE PHYSICAL ADDRESS OF THIS DEFECT IS 
SSF. (SEE SECTION 9.2) 


CTORING CANNOT BEGIN WITH A SECTOR WHICH HAS 
IELD DEFECT. 


R 
THE HEADER OF THE SKIPPED SECTOR AND THE HEADERS OF THE 
SECTORS ON THE SAME TRACK FOLLOWING THE SKIPPED SECTOR WILL 
HAVE SSE (BIT 13) SET. 
IL 
OU 


T 1 
THE UF BIT WILL BE RESET IN THE HEADER OF ALL NON-SKIPPED 
Sie THOUGH THE HEADER OF THE ERROR SECTOR MAY NOT BE 


HEADER FIELD AND DATA FIELD D 
SECTOR WILL BE ENTERED IN THE 1 
ADDRESS. (SEE SECTION 9.3) 


IF THE ONLY DEFECT ON A TRACK IS SECTOR 31, THE D 
BE MARKED AS A SKIPPED SECTOR, EVEN IF THE DEFECT A 
ae 4 AND ITS ADDRESS ENTERED IN THE SSF. (S 


FE 7 PRECEDING A SKIPPED 


EFEC 
6 8B MDBSF BY PHYSICAL 


mam 
mnon 
mm 
NAO 
m4 <4 
Own 


MULTIPLE DEFECTS WITHIN A SECTOR WILL BE CONSIDERED A SINGLE 
DEFECT. IF BOTH THE HEADER AND THE DATA FIELD ARF AFFECTED 
BY DEFECTS, THE HEADER DEFECT WILL TAKE REPORTING ~~ -CEDENCE. 
NEW DEFECTS DETECTED ON PREVIOUSLY ERROR FREE TRACK: WITHIN 
THE DEC STD 144 AREA. THE SSF TRACK, OR THE FE TRACKS ARE NOT 
ENTERED IN THE 15 BIT UDBSF. IF APPROPRIATE, A DEFECT ON ANY 
OF THESE TRACKS IS SKIPPED AND ITS ADDRESS IS ENTERED IN TH 

16 BIT SSF. IF A DEFECT WITHIN THIS ADDRESSING RANGE CANNOT 
BE SKIPPED, THE DEFECT WILL BE TREATED AS A DEC STD 144 

(1.€., THE UF BIT IS RESET IN THE HEADER) EXCEPT THAT THE 
ADDRESS OF THE DEF ECT IS NOT ENTERED IN THE 16 BIT UDBSF. 


8.0 BAD SECTOR FILE LAYOUTS 
SKIPPED SECTOR FILE (SSF) 
THE SSF HAS STORAGE SPACE FOR THE PHYSICAL ge ae OF 378 SKIPPED 


8.1 


SECTORS. 


DEFECT ADDRESSES ARE STORED IN_ THE SSF_ IN ASCENDING 


SEQUENCE IN THE SAME FORMAT AS IN THE DEC STD 144 FILES, I.E... 


SEQ 0012 


N 
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678 

679 CYLINDER ADDRESS FOLLOWED BY SECTOR AND TRACK ADDRRESSES. THE SSF 
680 WILL BE FILLED WITH ONE'S BETWEEN THE LAST DEFECT ADDRESS AND 

681 CHECKSUM. NOTE THAT BOTH THE HEADER PORTION AND THE DATA PORTION 
682 OF THE SSF Are PROTECTED BY CHECKSUMS. E 16 BIT SSF is REPEATED 
685 5 TIMES ON THE FIRST TRACK OF THE FE AREA: CYLINDER 559, TRACK O. 
eee THE SSF TRACK IS WRITTEN IN 16 BIT . 

686 THE SERIAL NUMBER FIELD IN BOTH THE SSF AND THE DEC STD 144 FILE IS 
pe fl IN THE SAME FORMAT. 

689 THE SSF FILE FOR 18 BIT MODE DEFECTS WILL BE REPEATED 5 TIMES 
690 FOLLOWING THE 16 BIT SSF FILE. SINCE SKIPPED SECTORING IS A 
691 MECHANISM WHICH IS INHIBITED WHEN THE RM80 IS BEING OPERATED IN 18 
692 BIT MODE, THE USE OF THE SSF FOR 18 BIT MODE ADDRESSES IS ONLY TO 
693 Hg THE 18 BIT MODE ADDRESSES OF HDA DEFECTS WHICH DO NOT APPEAR 
694 IN THE DEC STD 144 FILE. THE 18 BIT SSF COPIES WILL NEITHER BE 
pet USED NOR EME SE AUSD DURING 16 BIT FIELD FORMATTING. 

697 THE SSF FILE LAYOUT FOR BOTH 16 BIT MODE AND 18 BIT MODE FILES ARE 
698 AS FOLLOWS: ; 

699 

700 15 0 

701 tetetetoetetotoetetopototototsototes+ 

702 WORD 0 : HDA SERIAL NUMBER (LSB) ! SERIAL NUMBER IS A 31 
703 tetetetetetoepoetpegoetoteteteteoteta=+ BIT BINARY NUMBER 

704 . WORD 1 ; HDA SERIAL NUMBER (MSB) : 

706 WORD 2 : YEAR ; MON : DAY ! CREATION DATE 

707 toegetotetete fetetetetetoetpetoepeqed (YEARS SINCE 1978) 

708 WORD 3 : YEAR { MON ! DAY ' REVISION DATE 

709 tetetetototutotototoutototototpotos (YEARS SINCE 1978) 

710 WORD 4 ' REVISION NO ; 

711 ; $vbebetaduhedndatosasogatutogatus 

712 WORD 5 ; UNUSED ! FORMAT TYPE ! FORMAT TYPE: 1= 16 BIT 
713 . Seentw ter ere tes teeet? etoetototot 0O= 18 BIT 
714 WORD 6 UNUSED : 

715 patntntntatatetabetatatntntasatas UNUSED HEADER WORDS 
716 WORD 7 : UNUSED ' WiLL BE ZERO FILLED 
717 Ssdetsentntnbabeatadadatrsntetes 

718 WORD 8 UNUSED : 

719 babndohehadndngadngndsdosasuseses 

720 WORD 9 : NUMBER OF SSF ENTRIES : 

721 aver en eeynenteeraeeee etotet—-t—+—4+ 

722 WORD 10 CHECKSUM ' SSF HEADER CHECKSUM 
723 thbddnaclabeleseeebabeknsaionones 

724 WORD 11 ! CYLINDER ADDRESS ' PHYSICAL CYL. ADRS 

725 $sdosesotatososososetosutotutetos 

726 WORD 12 ! TRACK : SECTOR ' PHYSICAL ADDRESSES 

rar tototototetoetoetototetetetotatotes 

728 WORD 13 ! ONE'S ' NULL ENTRIES WILL 

162 ia at ehcp alah tidal BE ONE'S FILLED 

73) / / 

732 / / 

735 : : 

734 tetetetetaetetatatetetat=etetat—=tot 
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WORD 766 ! ONE'S 


tatatatatararoratatasataretatotes 


WORD 767 ! CHECKSUM D 


SE ., 


CKSUM IS CALCULATED De NG THE FOL 
CALCULATION IS BASED 6 BIT QUANT 
ONCE FOR THE SSF HEADER FIELD AND 


THM. THE 


——" orm 


— 
nun 


LD_SIZE_IN_16_81T WORDS 

HECKSUM + (16 BIT_WORD) 

HECK KSUM .ROTATED_CEFT 1_B1T. 
0 


THE ROTATE REFERED TO ABOVE IS THE FOLLOWING: 


Ge me ERE RM RS Oe = oo Sp ao ee + 


: 
+<4 ee ee 
+<4 6S SCEPC ER 


*#* REFERS TO EITHER THE °C* BIT FCR PDP-11 OPERATION OR BIT 16 FOR 
MACHINES OTHER THAN THE PDP=-11. NOTE THAT THE ROTATE stp AFTER 
THE ADDITI T SHIFTED INTO THE LSB POSITION OF THE 
tS lee CHECKSUM IS THE ‘CARRY OUT’ FROM THE 16 BIT ADDITION 


DEC STD 144 MANUFACTURING AND USER BAD SECTOR FILES 


THE DEC STD 144 FILE IS CONTAINED ON TWO TRACKS ON THE RM80. THE 
FIRST TRACK IS THE PRIMARY cOPY OF TH HE FILE, THE SECOND TRACK IS 
THE SECONDARY COPY OF THE FILE. THE PRIMARY COPY OF THE DEC STD 
144 FILE IS (WRITTEN ON THE LAST ADDRESSABLE TRACK BEFORE THE FE 
CYLINDERS (CYL 558, TRK 13); THE SECONDARY COPY GF THE DEC STD 144 
FILE IS WRITTEN AT CYL 559, TRK 


BOTH THE PRIMARY AND THE SECONDARY DEC STD 144 TRACKS ARE WRITTEN 
IN 16 BIT MODE. THE LAYOUT OF THE DEC STD 144 RECORD IS GIVEN 
BELOW. THE LAYOUT IS THE SAME FOR ALL COPIES OF THE FILE. 


fe fw goaded mg mpPupo garda qpoepusgoagpae pape t 

WORD 0 ! HDA SERIAL NUMBER (LSB) ! SERIAL NUMBER IS A 31 
Ce ee oe ee os BIT BINARY NUMBER 

WORD 1 : HDA SERIAL NUMBER (MSB) : 
tetotototoposostotototetototototost 

WORD 2! ZERO 
tetesoetosotosototostotototoetoyotos 

WORD 35! RO : 


SEQ 0014 
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794 
795 Fetetosusotpetpototpotpotototatotsotus 
796 WORD 4 ' CYLINDER ADDRESS ; 
797 bebatotasutatototatotusototototeus 
798 WORD 5 : TRACK ' SECTOR ; 
799 satotasosaposototososusototatatos 
800 WORD 6 : ONE'S ! NULL ENTRIES WILL 
801 tututatoutatoateatatutotutatotatotes BE ONE'S FILLED 
802 WORD 7 ! , ' 
803 tetetoetotpopatopotototosototatutos 
804 ' ; 
805 / / 
806 / / 
807 ! : 
808 $e -etopototototototototototsatataus 
809 WORD 254 ! ’ 
810 Fetetototototpotpototatototaotatotas 
811 WORD 255 ! . ' 
Ble tesasosetotgosatosototosotautaotatpos 
814 Rhy 16 BIT MODBSF WILL BE petite: IN SECTORS 0, 2, 4, 6, 8 OF THE 
815 PRIMARY AND SECONDARY DEC sr 16 4 TRACKS: THE 18 BIT MDBSF IS BE 
814 WRITTEN i} ECTOR THE 16 BIT UDBSF IS WRITTEN IN 
817 ECTORS BEI be 30: THE ‘ig BIT UDBSF IS WRITTEN IN SECTORS 
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861 
862 


SEaeare. 


3 
~—~OO 


9.0 ERROR TYPE DESCRIPTIONS 


1. 


0 31 


Prmmmeete}¢y emo ews eerer cee newtoewe entre nam weer w mann nen ew cew enn ee wen ne 7 


' t ‘ ‘ 
‘ ‘ ‘ ’ 
Fwmoeen pa owe nwnwrwrerowe ans wee wat Z en wonnewreae eww er ee ewe wn ee eRe > 


¢eee=> 144 PHYSICAL ENTRY ('D’ OR ‘H' ERROR) 


: Cc eseneeerecoeoooce , SSE ® SET Seaeanacaeesaaaeeaaen >31 : 
ee ee SSESSSSEEEEEEEEBEEEEEE a 
‘ iS : 
$2 OSC OOS 666 6S OOS $ © $ ©OSESSSSTSSSESSSSSEESSEEEESE SESSESESEESEEESEBEEOEOEE % 


tewee> SSF ENTRY 


: Leeeseseecoeecenn * SSE 8 SE ] weweeeoeeoescoeoce >31 : 
foweowae we peat era maem biota wawre wena ane wwe De EOE MEET EE EE DOME Oem ee S 
' i 4 1S ' 


ee ee + 
‘ ' 
tama 


> SSF 
teo~=> 144 PHYSICAL (*D* OR *H® ERROR) 


0 | Keeweewececennn= 'SSE' SET --------------- >31: 
dea nmewecm euros we peg er anweewcawrse botafowaemnwrevrwmewrewece ner n rene een oe = 
REESE RC Smee a me ee oe quiburé eSeeeeeoeoooesoooaooeseocoooeo * 

SSF <----4 te-==> 144 LOGICAL ENTRY 
| Cemeeeenewennns= 'SSE' SET --------------- >31! 
vom name em ee a He tm bw we es ee fe etre newamnw ern nme me ste se wn eee wo ee > + 

' iSi + tHe 

Foon wanwe san ace nws $e fh www ae we ew ww pa pepgusewrerrwmaraewa wer awowec2e cs « 2 wes + 
SSF <---=4 t ¢ee==> 144 PHYSICAL ENTRY 


t====> 144 LOGICAL ENTRY 


SEQ 0016 


E 2 
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OoOoOoOWOwowowowovovo 
CAD eet et et et 2 ot ot od tt 
N=—OOONOUNS WhO 


921 


10. 


; , SSE ‘ SET eee eww ee ee ome >31 

rows wr we mmoeanaenrant_ wh vanaenaerwvrca tuto tw tow ow nance ee 7 

iSt 1 +DiD; 

i lianas: satiate arenes tae Re man by 
ssf — _—— 144 LOGICAL 


4eeae)> 144 LOGICAL 


0 | (eee seeeceeeesce s SSE , SE T Su eee easeaa2eae >31 : 
Pec@esesecas wemwaewaentdoeo fo wmewmamwowrsece}toe}f ae ete wweer swe wrewmeanceseeerec@eesecee + 
? S| 1 SHIH! ? 
a i alla a aerial” i in ina ean ial a ob 

SSF <e--=4 | ¢eeee> 144 PHYSICAL 


| peeee> 166 LOGICAL 
144 LOGICAL <---=4 


0 } €Ceese eeeeeeeseeee ® SSE 9 SET seeeeeeoeoaeooon >31 ; 
tow maa mee wwe sewed prawn macemaedbe daha pmo ewe eraewwemaserer ner nee = + 
' iS + i DSH : 
ON ee ee ee ee es + 

SSF <e-ee4 | $ee--> 144 PHYSICAL 


i peeee> 144 LOGICAL 
144 LOGICAL <----+ 


. Caan wwe Sa mS ee , SSE ® SE T Sows noesewrecwea = >31 : 

dome ee Re ha poe wehbe de rp mwre meme nore neceae ree ee ewe a 

: iSi : Hid: : 

Peo san Re cee pat owmoannwewnmaeotdeadt uate ~ mweenwa eet eaenrewewoanse wise = + 
SSF Gianur 


| te===> 144 LOGICAL 
144 LOGICAL <----+ 


| Cewnneee i 'SSE® SET qoenenennne---- >31! 
wee wwsenwr new smesfPa fon neo mres swe eawan ane nae rer oweanes Sa woe es eS twepyoews 
H 1Si > «4 
$eowmmusemesmnunweamr Pah ran nme wws oem EOE Oe N EO ese Dee aw om before 
SSF <e--=4 144 LOGICAL <----+ | 
'D' OR "H' ERROR <----+ 


SEQ 0017 
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11. 
0 31 
mmm wns Seem m nen wr em nw ane name eS Sena ED ON ee a ed 
1S! 


¢ o2 o es 2 SE ED SD DE Ow GE en SY on wD er ae EM en as oer OR OD ER ER EN DOO ER OE Mew ee fb 


SSF ('SSE’ SET) <-<-<4 
'D’ OR ‘H’ ERROR <~---+ 


NOTE: 'D’ IS "H’ IS A HEADER FIELD DEFECT; 


A DATA Fl 
"S* IS A SKIPPED SE 


SEQ GO18 
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SYMBOL TAB 


- ABS. 000000 
000000 
ERRORS DETECTED: 0 
VIRTUAL MEMORY USED: 19 WORDS 1 PAGES) 
DYNAMIC ME MORY : 06 WORDS t 3} PAGES) 


.C300, 30J¢ 2RNJB= £300, 10]BEG.DOC,CZ2RNJB.DOC,END.DOC 


009 
001 


G 


SEQ 0019 
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TASK NAME 

PARTITION NAME 

IDENTIFICATION 
SK UIC 

TASK PRIORITY 
TACK LIM] 


TASK IMAGE SI 
TASK ADDRESS LI 
R-W DISK BLK LI 


Se 
S 


#** ROOT SEGMENT: FMTROT 


R/wW MEM LIMITS: 
DISK BLK LIMITS: 


026000 1 


B PAGE 1 


16263 070264 g0026- 
000002 000072 000071 00057. 


MEMORY ALLOCATION SYNOPSIS: 


SECTION 


« BLK.:(RW,1,LCL,REL,CON) 


_ IMPURE: (RW,D,LCL,REL,CON) 


SKTAB :(RW,D,LCL,REL,CON) 
| SSTATE: (RW,D,LCL,REL,CON) 04 


$SRESL:(RW,I-LCL.REL.CON) 0474 
SSSSBF:(RUSD-LCL REL CON) 04 


GLOBAL SYMBOLS: 
BASYR 000116 
DPARS 035740-R 
DSKLUN 000003 
GENHDR 034400-R 


TITLE IDENT FILE 
026502 020460 08496. 
026502 000276 00190. FMTROT 01.00 FMTROT.OBU:1 
027000 000444 00292. FMTIO 01.00 FMTIO.0BJ:1 
027444 000152 00106. FMTDAT 01.00 FMTDAT.OBJ; 1 
027616 001666 009 0. FMTMSG 01, FMTMSG.OBJ: 1 
031504 003032 196 . FMTSUB 02.00 FMTSUB.OBJ:2 
034536 001026 534. FMTPRS 1.00 FMTPRS .OB; 1 
035564 0011 00380. FMTR8O 1.0 FMTR80.0BJ: 1 
036670 001246 0678. FMTRBF 02.00 FMTRBF.OBJ;2 
040136 001516 00846. FATRBV .00 FMTRBV.OBJ:2 
041654 001316 00718. FMTR .00 FMTRBM.OBJ;2 
043172 001270 00696. FMTRBL 01.00 FMTRBL.OBJ:1 
O4ub62 000570 00248. FRTINT 01.00 FATINT.08J:1 
047162 000016 00014. 
047200 900031 00025. 
047200 000031 00025. FMTPRS 01.00 FMTPRS.OBU:1 
047232 000016 00014. 
047232 000016 00014. FMTPRS 01.00 FMTPRS.OBJ:1 
7250 000166 00118. 
04725 166 00118. FMTPRS 01.00 FMTPRS.OBJ;1 
26 000246 00166. 
047704 046356 19694. 
7704 046356 19694. FMTDAT 01.00 FMTDAT.OBJ;1 


TE.BLK 177754 
IE.DAA 177770 
1E.DONR 177775 
1E.EOF 177766 


IE.OFL 177677 
IE.PRI 177760 
10.ATT 001400 
10.BLS 004010 


10.DET 002000 
10.DGN 004150 
1O.FER 004200 
10.FEW 004210 


10.HMS C04000 
10.LPC 004100 
10.0FF 004020 
10.RDH 0040350 


10.RLB 001000 
1O0.RNF 004060 
10.RNR 004070 
I0.RPD 004170 


10.RTD 004120 
10.RVB 010400 
10.TDD 004140 
10.WCH 004110 


SEQ 0020 


 TRKSZ 
—UNTKT1 
_UNTST1 
—SALFLB 027450-R 
-‘SBUF 
 $BUFRX 110242-R 
- SBUFX 
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10.WCK 004050 
10.WDH 004040 
10.WPD 004160 
10.W1D 004130 
1Q0.UMD 000004 
MSGER8 042021-R 
OPTKT2 0472352-R 
OPTST2 047260-R 
SECSZ 027472-R 
SKPFRE 047724-R 
SPEFN 000003 
027470-R 
047232-R 
047250-R 


050042-R 


110242-R 
SCONPB 027524-R 
SCR 027616-R 
SCVTDA 031636-R 
SCYL 047752-R 
SDEVHD 003534 

SDSKIO 027020-R 
SDSKPB 027474-R 
SDSKRH 027006-R 
SDSKRT 027030-R 


SDSKWC 027000-R 
SDSKWH 027014-R 
SDSTRB 042166-R 
SDVICE 027446-R 
SDVPRM 027560-R 
SDVUNT 047734-R 
SEROCT 031600-R 
SEROUT 031556-R 
SFEBSF 116062-R 
SFLCYL 047744-R 
SFLRGS 040024-R 
SFLSEC 047750-R 
SFLTRK 047746-R 
SFMTEP 026502-R 
SFMTEX 031464-R 
SFUNC 027476-R 
SHDRFG 047742-R 
SHOMSK 031710-R 
SINADD 047710-R 
SIOBUF 027510-R 
$IOST 627554-R 
SLBNH 027516-R 
SLBNL 027520-R 
SLOGDV 027576-R 
SMBSSZ 027572-R 
SMDBSF 111062-R 
SMESAG 031422-R 
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SMGPRE 057632-R 
SMOVE 031744-R 
SMSGRB 031366-R 
SMSGWR 031414=R 
SMSG1 027634-R 
$MSG10 030122-R 
$MSG11 030143-R 
SMSG12 030167-R 
$MSG13 030177-R 
$MSG15 030225-R 
$MSG16 030237-R 
$MSG17 030246-R 
$MSG18 030256-R 
$MSG19 030301-R 
S$MSG2 027645-R 
$MSG20 030324-R 
SMSG21 050351-R 
SMSG22 030405-R 
SMSG23 030427-R 
SMSG24 050474-R 
$MSG25 030502-R 
$MSG26 030510-R 
$MSG27 030540-R 
$MSG28 030574-R 
$MSG29 030626-R 
$MSG30 050650-R 
$MSG31 030671-R 


$MSG32 030714-R 
SMSG4 027662-R 
$MSG40 050742-R 
$MSG41 031000-R 
SMSG42 031026-R 
$MSG435 031056-R 
$MSG44 031105-R 
SMSG45 0351141-R 
SMSG5 027707-R 
SMSG58 031166-R 
SMSG59 031235-R 
SMSG6 027737-R 
SMSG6A 027762-R 
SMSG6B 030004-R 
SMSG7 030025-R 
$SMSG70 031274-R 
$MSG71 031307-R 
$MSG72 031322-R 
SMSG735 031544-R 
SMSG8 030045-R 
SMSGBA 030070-R 
SMSG9 0350076-R 
SMULT 032046-R 
SMVPAT 031504-R 
SMXCYL 027564-R 
SMXLBN 047756-R 
SMXSEC 027570-R 


SMXTRK 
SNONSI 
SPARSE 
SPAT 
SPHYDV 
SPRINT 
SPRMPT 
SPRNTO 
SRDBSF 
SROSSF 
SREAD 
SRETRY 
SREVNM 
SRGBUF 
S$RMBO 
SRMBOF 
SRMBOI 
SRMBOL 
SRMEOM 
SRMBOV 
SRTCNT 
SR8OSF 
SREOTF 
$SC(B 
SSEC 
SSMBSF 
SSNAME 


027566-R 
002416 

034536-R 
027462-R 
027606-R 
027256-R 
031754-R 
027262-R 
032322-R 
033156-R 
027342-R 
027466-R 
047712-R 
047760-R 
035746-R 
037226-R 
044550-R 
043554-R 
042104-R 
040354-R 
047732-R 
037156-R 
037220-R 
047706-R 
047756-R 
033774-R 
047726-R 


SSRALL 033654-R 
SSRFES 033726-R 
SSRMDF 033740-R 
SSRSDF 033764-R 
SSRSSF 034046-R 
SSRIMF 034166-R 
$SRTRK 033612-R 
SSRISF 034132-R 
SSRTUF 034222-R 
SSRUDF 033752-R 
$SSF -113062-R 
$SSFDT 001365 

$SSFHD 000013 

SSSFLB 027454-R 
SSSFLN 000003 

$SSFSZ 027460-R 
SSTARS 027620-R 
SSTATS 027444-R 
S$STCSR 035222-R 
S$STERL 035500-R 
SSTFFE 035544-R 
S$STFOR 035550-R 
SSTIN 035556-R 
SSTLIS 035536-R 
$STLOG 035532-R 
SSTUNT 034736-R 
SSTVEC 035336-R 


SSTVFL 035446-R 
SSWERL 047715-R 
SSWFFE 047721-R 
SSWFMT 047720-R 
SSWINT 047722-R 
$SWLOG 047717-R 
SSWLST 047716-R 
SSWMOD 047723-R 
$SYSIZ 003456 

STRK 047754-R 
STSTDA 032160-R 
STSTDV 035054-R 
STSTMX 0352216-R 
$UBSSZ 027574-R 
$UCB = 047704-R 
SUDBSF 112062-R 
SUNTID 452266-R 
SUPDMX 032120-R 
SVERIF 047725-R 
SWLKER 027250-R 
SWIBSF 032730-R 
SWISSF 055464-R 
SXFRSZ 027512-R 
SYESNO 047714-R 


SEQ 0022 


2 


J 
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HF AMATA OR DAKO MUMTNOKR ORO RK WM ay 
CO CUCU CCW 


VERSION 01.00 
C. HESS 


25 


17-AUG-80 
09-JAN-81 


M. LEAVITT 


>CALL MACRO TO DEFINE UCB OFFSETS 


-MCALL ALUNSS,UCBDFS 
UCBDF$ 
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0000006 


001400 


2 


29 
: aseoSFMTEP-FORMATTER ENTRY POINT 
CALL THE 


: THIS ROUTINE WILL CALL THE PARSER, SETUP THE DISK PARAMETERS 
UP AFTER THE FORMAT OPERATION. 


; ACTUAL FORMATTING ROUTINE, & CLEAN 


SFMTEP::CLRB  $SWERL ; RESET ERROR LIMIT (DEFAULT IS 256.) 
CLRB  $YESNO * RESET YES/NO RESPONSE 
CLRB = S$SWLST : RESET BAD BLOCK FILE LIST SWITCH 
CLRB  $SWLOG : RESET LOGICAL LIST SWITCH 
CLRB 0s SSWFMT * RESET FORMAT ENABLE SWITCH 
CLRB 4s SSWFFE : RESET FORMAT FE ENABLE SWITCH 
CLRB 3s SSWINT : RESET MDBSF, UDBSF, SSF GENERATION SWITCH 
CLRB  $SWMOD : RESET THE MOBSF, SSF, & FEBSF MODIFY SWITCH 
CLRB ss SSTATS#1 : CLEAR STATUS FLAGS 
CLR SREVNM * CLEAR TEMPORARY STORAGE FOR REVISION NUMBER 
MOVB = #1 SVERIF : PRESET THE VERIFICATION COUNT 
MOV #256..R * LOCATIONS IN THE MDBSF BUFFER TO CLEAR 
MOV #SMDBSF RO : BUFFER POINTER 
1$: MOV #=-1, (RO)+ > CLEAR A LOCATION 
DEC R3 : COUNT THE LOCATI 
BNE 1$ : IF NE, NOT FINISHED 
MOV #256. ,R3 * LOCATIONS 10 CLEAR IN THE UDBSF BUFFER 
MOV #SUDBSF ,RO : BUFFER POINTER 
2$: MOV #=1,(ROS+ > CLEAR A LOCA 
DEC R3 : COUNT THE LOCATION 
BNE & : IF NE, NOT FINISHED 
MOV #64.,R3 * LOCATIONS TO CLEAR IN THE FE BSF BUFFER 
MOV #SFEBSF .RO * BUFFER POINTER 
3$: MOV #=1, (RO)+ * CLEAR A LOCATI 
DEC R3 : COUNT THE LOCATION 
BNE zg - JF NE, NOT FINISHED 
MOV #256. *<$SSFLN> RS : ER OF SSF LOCATIONS 
MOV #SSSF RO > BUFFER POINTER 
4$: MOV #-1,(RO)+ > CLEAR A LOCATION 
DEC R3 > COUNT THE LOCATION 
BNE 4$ > IF NE, NOT FINISHED 
MOV #SFMTEP,SP > RESET STACK POINTER 
CMP $SYS12,#40*24. : IS THERE AT LEAST 24K? 
~:~ Ss > IF HIS, YE 
CRASH : ELSE CRASH THE SYSTEM!! 
5$: CALL  $PARSE - PROMPT AND PARSE COMMAND LINE 
ALUNSS #DSKLUN,SDVICE.RI : ASSIGN LUN TO DISK 
MOV #SMSG4,RO : ASSUME DEVICE NOT IN SYSTEM 
BCC F : IF CC, DEVICE IN SYSTEM 
6$: JMP SMSGWR > EXIT WITH WARNING STATUS 


* ATTACH THE DISK 


FMTPRM: MOV TT!1Q.UMD,R3 
CALL 


#10.A : ATTACH DISK FOR FORMATTING 
$DSKIO 


SEQ 0023 


é 
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93 : PRESET THE DISK PARAMETERS RETURN THE HEADS HOME AND 
34 * CALL THE ACTUAL FORMAT ROUTINE. 
6 aw 

97 000242 005067 0000006 CLR $SEC ; RESET DISK PARAMETERS 
98 000246 005067 9000006 CLR $TRK 

99 000252 005067 0000006 CLR SCYL 

100 000256 CALL § $HOMSK : DO A RECALIBRATE 

101 000262 CALL § $RMBO ; CALL THE FORMATTER 

102 000266 CALL §§ $HOMSK * DO A RECAL 

103 000272 000167 0000006 JMP SFMTEX * EXIT GRACEFULLY 

105 000900' .END  $FMTEP 


SEQ 0024 


He SEQ 0025 
012 FMTROT - RM8O FORMATTER ROOT MO MACRO M1113 12-JAN-82 11:01 PAGE 4-2 
| BLE 


SYMBOL TA EC= 004000 
= -ALG= 0 U.CW5 14 Us <8 = 
ele . 
C$$TTY= 177564 $1.CTO= UC LGH= U.FCDE= 4 «ROG= 
DSKLUN= eee GX $1.C1S= 919000 Oe eke U.FNUM= 000036 ete ttt 
DV.CCL= 000002 S1.DEC= 002000 UC PWF = U.FPS = 44 U2.SLV= 39 
-COM= 020000 51.DPR= 001000 UCLQUE= 00004 U.KCSR= 2 US yee OF 0000 
IR= 000910 $1.DSI= ARE US ABO= 1 U.KCS62 4 U TAS 00400 
of a a a ds 
V.MBC= pale t EF O O10 US. CRW= 0 4 ett P 0 $4 ScyL s seeane GX 
DV:MXD= 000 $1 -RAL= 200934 Be to 00002 UCB 0020 soetiis ccegur an 
DV.OSP= 004000 S1.RNE= US.FOR= 00004 U.STS 000 Ja seeese. an 
-PSE= 010000 S1.RST= 000001 US. FOR= 002 U.ST2 00007 eine, socene & 
V-PEC= 000001 23. RUB= 000002 e KPF= it ‘ U.TCHP 004 SFATEP 3 
SRO me ea a 
Soo DOT000 S2.BRO= 000020 US.MDE= 000002 UTERO 000037 SMDBSF= seeee GX 
By: TT¥= 90004 Seem ttt US:ANT= 000100 U: TLPP ay SHSGUR= seseee Gx 
DV.UMD= 000200 S2.FDX= : US OFL= 000001 U.TMTI 00004 gidice asaowe te 
D$$IAG= 000000 S2.FLF= 04000 OUTS 5 0001 U.TSTA 000 26 in a Sal GX 
-FMTPRM 000232R S2.HFL= 003400 Us PwF= 000010 U.TTYP 000046 a » once ex 
HSSRTZ= 000074 S2.HHT= 016000 US.RED= OB 0s U.TUX 000024 ose = eeneee GX 
| JO.ATT= eteeee GX $2. 1RQ= 000200 US. SHR= i 01 U.UIC 000044 S$ ue seuese Ef 
| 1O.UMD= eeeeee GX $2.0RQ= 000100 S$. SPU= titi U.UNIT 000006 zeret 5 aadeon a 
“KSECNT= 177546 $2.SRO= 000040 US: UND= 000010 U;VCB = 000034 SSUERL= seeeee GX 
“KSSCSR= 177546 S2.VFL= 004000 US.VV = 000001 U2.AT.= 000020 Such. ceseee 
'KSSIEN= 000115 S2.WRA= 000006 US WCK= 000010 U2.CRT= 002000 pak Se eeenee GX 
_KSS$LOC= 000001 S2.WRB= 000002 ACP = 00003 u3:DH= 100000 Seite sessee te 
“KSS$TPS= 000074 $3.BCC= 020000 UAE eens Us DJ1= 040000 SSUINT= seeeee GX 
Oa ee oppo 33 "PcU= 100000 U:BuF 900004 U2-Dz1= 000100 Ssutsi= seeses Gx 
| LSSDRV= 124 53.RAL= 000010 U.CBF = 0 2 i "HEF 010000 SSWMOD= seee22 GX 
NSSLDV= 000001 $3.R¢ 900400 a ent 060080 US“ HLD= 900040 aiat’*s scones Ge 
PSSNIC= 177564 92. TAB= U.CTL 000004 eee SUDBSF= terse GX 
RSSDER= 000000 $3. VER= 010000 UE TYP 000050 U2.LWC= 000001 ae. aceces ae 
$$M11= 000001 S3.WAL= 004000 ° 010 U2.L3S= 000004 SVE = ti 
ASST IM 000000 S3-MES= Boones Ureu2 ga0019 U2:L8S= 010000 SYESNO= *e8e22 GX 
$$$ure= 000000 TSEMIN= 000000 


| . 177776 000 
Boas 000276 001 
ERRORS DETECTED: 0 


| Y USED: 3572 WORDS ( 14 PAGES) 
 NUNARIE MEMORY: 7942 WORDS (- 30 PAGES) 
f OO SDIFMTROT. 300-30 ]FMTROT=C1,1IEXEMC/ML.£1,60]RSXMC/PA:1,0300, 10]FMTROT 
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980 
NT 


4 
ME 


THE INFORMATION I 
NOTICE AND SHOULD NOT 
EQUIPMENT CORPORATION. 


VERSION 01.00 


-MCALL DIRS 


MOOWONAUE WN ROO WNOUES WN HOOWONOAUS WR 


NARI RITNIAINIPINI QR 2 


CORPORATION, MAYNARD, MASS. 


— WITHOUT 


R THE USE OR REL rth waded OF 


DIGITAL ASSUMES NO RESPONS 
T SUPPLIED BY DI 


ITS SOFTWARE ON EQUIPMENT W 


zn 
oo 


C. HESS 14-AUG-80 
M. LEAVITT 15-0CT-80 


SEQ 0026 


ek a ee eee ee YL ee ee 


NOUS WN —OOONAVEWN OO OONOULWw 
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oo oo 
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OonNONO NNW Mw U8 
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0000006 (0000006 
0000006 0000006 


NOTE: 


SeGe Ge Ge Ge Ge Ge Ge Ge te Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se Se Se Se Gee Ge Ge Ge Ge Ge Ge Se Ge Se Se Se 


. ENABL 
SDSKWC: 
SDSKRH:: 
SDSKWH:: 


SDSKIO:: 
SDSKRT:: 


**-$DSKIO-1SS 
**=$DSKRH=-1SS 
*t-S$DSKRT-RET 
**-$DSKWH-ISS 
#e@$DSKWC-1SS 


INPUTS 


HEADER & DATA 


E HEADER & DAT 
E CHECK HEADER *e DATA 


UNCTIONS TO A DEVICE. 


ODE (IF ENTRY IS AT $DSKIO) 
UMES THAT THE DPB IS ALREADY SETUP. 


Z2VIW 


_— 


ERE WERE NO att THE 
WAS A PARITY ERROR 


or "O- Ne- } T «- 
ozs oO 


ANY OTHER ERROR CODE WILL BE REPORTED AS ‘'UNRECOVERABLE”’. 


MOST FUNCTIONS ARE ISSUED WITH ie DIAGNOSTIC SUB-FUNCTION 
BIT ¢ ) FOR THESE FUNCTIONS THE FUNCTION WILL 
ALWAYS RETURN SUCCESS (CARRY CLEAR) AND THE USER MUST TEST 
THE PROPER BIT IN THE REGISTER BUFFER (S$RGBUF) TO DETERMINE 
IF THERE WAS ANY ERRORS. 


LSB 
:MOV #10.WCH!10.UMD,R3 WRITE CHECK HEADER & DATA 
BR $DSKIO : 60 TO THE COMMON G10 ROUTINE 
MOV sik saioe' en a sREAD DISK HEADER(S) 
BR SDSKIO *BR INTO COMMOM DISK ROUTINE 
MOV #10.WDH'1Q.UMD,R3 sWRITE DISK HEADER(S) 
MOV R3, SFUNC *STORE FUNCTION CODE IN DPB 
MOV R5,SIOBUF ‘STORE BUFFER ADDRESS IN DPB 
DIRS #$DSKPB “ISSUE THE G10W$ 

BCC 1$ sIF CC OK 

CMP #IE.UPN,$DSW § :POCL SPACE AVAILABLE? 

BEQ SDSKRT -1F EQ NO, TRY AGAIN 

MOV $)SW, $1051 “COPY DSW INTO STATUS BLOC* 


90 000060 
91 00006 
92 000 
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1$: CLC sASSUME NO ERROR 
TSTB  =—s-_-« $10ST “ERROR? 
BPL 6$ :1F PL NO 
CLRB $10St+1 “YES, CLEAR THE HIGH BYTE 
28: MOV #9$,R0 ‘SET POINTER TO ERROR TABLE 
$: CMP (ROS ,$10ST :SCAN ERROR TABLE TO FIND ERROR TYPE 
BEQ 4$ -1F €Q MATC 
CMP (RO)+,(RO)+ ‘STEP TO NEXT ENTRY 
TST (RO) ‘END OF TABLE? 
BNE $ ‘IF NE NO 
4$: MOV (RO), RO ‘GET ADRS OF ERROR MESSAGE 
BNE t ‘IF NE PRINT MESSAG 
S$: SEC “ELSE JUST SET CARRY AND EXIT 
6$: RETURN 
7$ CMP RO, #SMSG8 s"UNRECOVERABLE"’’ MESSAGE? 
BNE 8$ IF NE NO 
CMP WIE .BLK&377,$10ST “YES, IS THIS A BLOCK # VIOLATION? 
BEQ 5$ :IF €Q YES 
MOV #SMSGBA,RO :GET BUFFER ADDRESS FOR ERROR CODE 
NEG $IOST :MAKE ERROR CODE POSITIVE 
MOVB $1057 Rt “GET ERROR CODE 
CLR R :SUPRESS LEADING 0'S 
CALL § $CBDMG “CONVERT TO DECIMAL 
MOVB #*.,(RO)+ “STUFF DECIMAL INDICATOR 
CLRB = (RO ; TERMINATE STRING 
MOV #$MSG8,RO “GET ADDRESS OF ‘‘UNRECOVERABLE’’ MESSAGE 
8$: JMP SMESAG “PRINT MESSAGE AND EXIT 
;* 
: ERROR CODE AND ERROR MESSAGE TABLE. A ZERO WORD 
: IN THE MESSAGE FIELD INDICATES THAT THE ERROR WILL 
: BE HANDLED BY THE CALLING ROUTINE. 


9$: .WORD IE.HWR $MSG13_; HANDLER NOT RESIDENT 
“WORD 1E.DNR6377, $MSG10 : DEVICE NOT READY 
“WORD IE.DAA8377. $MSG5: DEVICE ALREADY ATTACHED 
“WORD IE.VER&377. 0 : PARITY ERROR 
“WORD 1E.BBE8377. 0 : BAD BLOCK 
“WORD IE.FHES377. $MSG20 : FATAL HARDWARE ERROR 
“WORD LE -PRIE 77. $MSG22. : PRIVLEGE VIOLATION 
-dORD I€.OFL8377, $MSG? ss: DEVICE OFFLINE 
-WORD 0, $MSG8 =: END OF TABLE 


-+ 
>; se-$WLKER-SET WRITE LOCK ERROR 


< THIS ROUTINE WILL SET THE WRITE LOCK ERROR MESSAGE AND EXIT 
= WITH A SEVERE ERROR STATUS SET. 

> INPUTS: 

: NONE . 


; OUTPUTS: 
RO = WRITE LOCK ERROR MESSAGE ADDRESS 


SEQ 0028 


FMT1O = 1/0 ROUTINES MACRO M1113 12-JAN-82 11:01 PAGE 2-2 SEC 0025 
leg 000250 012700 0000006 SWLKER: :MOV #$MSG9,RO SET WRITE LOCK MESSAGE ADDRESS 
LKER:: - § Wd LOCK A 
149 50056 nite BR &$ ‘EXIT WITH SEVERE ERROR STATUS 
151 .DSABL LSB 
138 
15 
154 3+ 
155 ; t#=$PRINT=PRINT MESSAGE ON THE USERS TI: 
136 : ##=$PRNTO=PRINT MESSAGE ON THE USERS TI: (ALTERNATE ENTRY} 
158 : INPUTS: 
159 : RO = MESSAGE ADDRESS 
139 : R1 = CARRIAGE CONTROL (FOR SPRNTO ENTRY ONLY) 
162 > OUTPUTS: 
163 : MESSAGE SENT 70 TI: 
166 000256 012701 000040 SPRINT: :MOV #40,R1 sSET 1 LINE FEED CARRIAGE CONTROL 
167 000262 012705 0000006 SPRNTO: :MOV #SCONPB,RS “GET OUTPUT DPB ADDRESS 
168 000266 012765 0000006 0000006 MOV #10.WVB,Q. LOFN(R5) “SET FUNCTION CODE 
169 000274 010065 0000006 MOV RO,Q.10PL(R5)  ;STORE MESSAGE ADDRESS IN DPB 
170 000300 005065 0000026 CLR Q.{0PL+2(R5) | :CLEAR MESSAGE LENGTH COUNTER IN DPB 
171 000304 010165 0000046 MOV R1,Q.10PL#4(R5) :SET CARRIAGE CONTROL 
172 000310 105720 1$: TSTB. —s-« (RO) + ‘END OF MESSAGE STRING? 
173 000312 001403 BEQ 2$ *IF €Q YES 
174 000314 005265 0000026 INC Q.10PL+2(R5) | :NO, CALCULATE MESSAGE LENGTH 
175 000320 000773 BR 1§ [GET NEXT CHARACTER 
177 000322 2$: DIRS RS sPRINT THE MESSAGE 
178 000326 103004 BCC 3$ “IF CC 
179 000330 022767 0000006 0000006 CMP WIE.UPN,SDSW  :POOL SPACE AVAILABLE? 
180 000336 001771 BEQ 2$ :1F EQ NO, TRY AGAIN 
181 000340 000207 3$: RETURN 
183 
184 
185 3¢ 
186 : te=$READ-READ A LINE FROM THE TERMINAL 
188 > THIS SUBROUTINE WILL READ A LINE FROM THE CONSOLE 
189 > DEVICE. 
190 ; 
191 > INPUTS: 
192 ° NONE. 
193 s 
194 : OUTPUTS: 
195 : CARRY SET IF ANY ERROR AND 
196 : RO = ERROR MESSAGE ADDRESS 
198 : CARRY CLEAR If READ OK 
200 : 
201 000342 012705 0000006 SREAD:: MOV #SCONPB,RS -GET INPUT DPB ADDRESS 
202 000346 012765 000000G 0000006 MOV #10. RVB,Q. LOFN(RS) “LOAD FUNCTION CODE 
203 000354 012765 0000006 0000006 MOV #SBUFRX.O.1OPL(RS) “LOAD BUFFER ADDRESS 


FMTIO = 1/0 ROUTINES MACRO M1113 12-JAN=-82 11:01 PAGE 2-3 SEQ 0030 
04 900362 012765 000120 0000026 MOV en ~10PL+2(R5) :LOAD MA MAX NUMBER OF BYTES TO READ 
05 000 DIRS sREAD IN THE INE 
06 000374 193414 BCS “IF CS DIRECTIV 

207 000376 767 000000C 0000006 CMPB ale EOF&377,$10ST END OF ite OB EEN? 
208 000404 00140 BEQ sIF €0 YES 

209 000406 oO5t6 0000006 TSTB =—s-«s SJ OST :1/0 ERROR? 

210 000412 002405 BLT $ :IF LT YES 

211 000414 105767 0000016 TSTB 10ST+1 *CHECK FOR A TE RMINATED LINE 
212 000420 001405 BEQ $ ;1F EQ BUFFER OV ERF LOWED 
213 000422 000241 1$ CLC ‘INDICATE READ WAS OK 

16 000424 000207 RETURN 

$i2 000426 012700 0000006 2$: MOV #$MSG29,RO sCOMMAND 1/0 ERROR 

217 000432 000402 BR 

218 000434 012700 0000006 3$: MOV #$MSG30,R0 sCOMMAND TOO LONG 

219 000440 000261 L$: SEC 'SET ERROR RETURN 

220 000442 000207 RETURN 

222 000001 END 


FMTIO =-_1/0 ROUTINES MACRO M1113 12-JAN-82 11:01 PAGE 2-4 SEQ 0071 
SYMBOL TABLE 
1E.BBE= s*eee2 GX IE.VER= teenee GX SCBDMG= *teeee GX 1OBUF= s*ene8 GX SMSGS = #eeeee GK 
IE.BLK= setene GX IQO.RDH= teeeee GX SCONPB= *teeee GX [OST = seenee GX $MSG7 = ##ee08 GX 
1E.DAA= teeeee GX 1O.RVB= eeeene GX $DSKIO 000020RG MESAG= *eene8 GX MSG8 = seeeee GX 
IE.ONR= eeeeee GX IO.WCH= e222 GX SDSKPB= wxeeeee GX SMSG10= see008 GX MSGBA= *eeene GX 
IE.EQF= eeeeee GX 10,WDH= seeeee GX SDSKRH RG MSG15= seeeen GX SMSG9 = #eee08 GX 
IE.FHE= eeeeee GX 10.WVB= serene GX SDSKRT RG MSG20= «eeeee GX SPRINT 000256RG 
IE.HWR= seeeee GX 1Q.UMD= teeeee GX $DSKWC OOORG MSG22= *eeane GX SPRNTO 000 6 Re 
IE .OFL= weeeee GX Q.1OFN= seenee GX SDSKWH 014RG SMSG29= saeeee GX SREAD 000342RG 
IE.PRI= eeeeee GX Q.10PL= teenee GX SDSW = teeter GX $MSG30= seeeee GK SWLKER 000250RG 
1E.UPN= *teeee GX SBUFRX= eeenee GX SFUNC = *eeeee GX 
- ABS. 000000 000 

901 


ERRORS DETECTED: 0 


VIRTUAL MEMORY USE: 481 WORDS ( 2 PAGES) 
DYNAMIC MEMORY: 942 WORDS ( 30 PAGES) 
ELAPSED TIME: 


00: 
300, 20]FMT10,(300, 30JFMT10= C300,10JFMTIO 


SEQ 0052 
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FMIDAT = FORMAT DATA BASE MACRO M1113 12-JAN-82 11:01 PAGE 2 : SEQ 003% 

47 000001 DSKEFN = 1 sEVENT FLAG FOR DISK 1/0 

48 99000 CONEFN = EVENT FLAG FOR CONSOLE 1/0 

49 900 0 SPEFN == SEVENT FLAG FOR SPAWN DIRECTIVE 

50 0000 CONLUN = ‘LUN FOR CONSOLE 1/0 

51 90000 DSKLUN == “LUN FOR DISK 179 

58 000037 DEFSEC = 1, ‘DEFAULT SECTOR FOR SKIP FLAG 

27 ittih seer un as 1 SOBER OF WORDS IN HEADER OF SKiP SECTOR FILE 
56 001365 $SSFDT == <256.*SSSFLN>=-$SSFHD | ;NUMBER OF WORDS IN DATA OF SKIP SECTOR FILE 

7 000000 000 377 SSTATS::.BYTE 0,=1 s FORMAT STATUS, MCR LINE FLAG 

58 000002 lee SDVICE::.ASCII "OR" * DISK NAME (ASC11) 

59 000004 00093 1317 SALFLB::.WORD 1RI715 : ADDRESS OF ALTERNATE DEC STD 1o4 TRACK 
60 000010 000003 131656 SSSFLB::.WORD %.131656 ; ADDRESS OF START OF SKIP SECTOR FILE 
61 000014 600005 $5SFS2::.WORD : NUMBER OF COPIES OF SKIP SECTOR FILE 
62 000016 155555 133333 SPAT:: WORD 155555,133333 : DISK FORMAT PATTERN 

63 000022 000024 SRETRY::.WORD 20. : NUMBER OF RE-VERIFICATION ATTEMPTS 
64 000024 040200 TRKSZ:: .WORD 516.*32. : Rag TRACK SIZE (IN BYT 

65 000026 001004 SECS2:: .WORD 516. > RMBO SECTOR SIZE (INCLUDING HEADER) 
67 sDISK 1/0 DIRECTIVE PARAMETER BLOCK (Q10W$S DIRECTIVE) 

69 000030 003 014 SDSKPB::.BYTE 3,12. : MACRO DIC, DPB SIZE 

70 000032 000000 SFUNC:: _WORD : FUNCTION CODE 

71 000034 900003 DSKLUN > LUN 

72 000036 000 .BYTE DSKEFN, : EVENT FLAG, PRIORITY 

73 000040 000110" ; $IOST > STATUS BLOCK ADDRESS 

74 000042 0 -WORD 0 ; AST ADDRESS 

75 000044 000000 S$IOBUF::.WORD 0 : BUFFER ADDRESS 

76 000046 000000 SXFRSZ::.WORD 0 : TRANSFER SIZE IN BYTES 

77 000050 000000 “WORD : : NOT U 

78 000052 000000 SLBNH:: .WORD : HIGH” ORDER LOGICAL BLOCK NUMBER 

79 000054 000000 SLBNL:: .WORD 0 : tow ORDER LOGICAL BLOCK NUMBER 

80 000056 000054" -WORD  $RGBUF > REGISTER BUFFER ADDRESS 

82 sCONSOLE 1/0 DIRECTIVE PARAMETER BLOCK (Q10WS DIRECTIVE) 

84 000060 003 014 SCONPB::.BYTE 3,12. : MACRO DIC, DPB SIZE 

85 000062 000000 .WwORD 0 > FUNCTION Cone 

000002 D  CONLUN : CONSOLE L 

A 002 000 .BYTE CONEFN,O : CONSOLE EVENT FLAG, PRIORITY ZERO 
88 000070 000110' : SI0ST : STATUS BLOCK ADDRESS 

§9 000072 000000 “WORD 0 > AST ADDRESS 

90 000074 000000 .wORD 0 > BUFFER ADDRESS 

91 000076 000000 ,WORD 0 : MESSAGE BYTE COUNT 

92 000100 000000 “WORD 0 * CARRIAGE CONTROL 

95 000102 000000 000000 000000 “WORD 0,0,0 > NOT USED 

35 000110 000000 000000 $10ST:: .WORD 0,0 : 1/0 STATUS BLOCK 

97 ; 

eS : DRIVE PARAMETER TABLE 
100 ‘ 
101 000114 000003 131656 SDVPRM::.WORD  %3,131656 : MAXIMUM LBN 
103 : THE ORDER OF THIS TABLE MUST NOT CHANGE 
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000000 


SMXCYL::. WORD : 
SMXTRK::.WOR : 
SMXSEC::. WORD : 
SMBSSZ::.WORD 10. ; 
$UBSSZ::.WORD 20. ; 
:¢ 
: MACRO FORMAT: LBN, CYL, TRK, SE 
; WHERE: 
: LBN = MAXIMUM NUMBER OF 
: CYL = MAXIMUM NUMBER OF 
: TRK = MAXIMUM NUMBER OF 
: SEC = MAXIMUM NUMBER OF 
~MACRO OVPRM LBN, CYL, TRK, SEC 

-WORD LBN 

~WORD CYL 

-—BYTE SEC 


8 
-ENDM DVPRM 


SLOGDV: :DVPRM 
SPHYDV: :DVPRM 


-PSECT $S$$S6F .D 
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SEQ 00% 


mo 
& 
rt 
mn 
c 
© 
» 
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; LOGICAL D 


EVICE GEOMETRY 
; PHYSICAL DEVICE GEOMETRY 


CURRENT UCB 
RECT 
NTERRUPT VECTOR 
AGE FOR SSF REVISION NUMBER ($SSF +10) 
INUE RESPONSE 
ILE CONTENTS 
TCH 
AG 
CYLINDERS ONLY 
SF, AND 


: : SSF 
upBSF, & FEBSF 


DISK UNIT ER 
XIMUM BLOCK NUMBER 
HEADER DEF LAG 


EFECT F 
FAILING CYLINDER ADDRESS 
TRACK an 


SECTOR 
CURRENT CYLINDER 
CURRENT TRACK 
CURRENT SECTOR 
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161 
16¢ 000054 SRGBUF :: .BLKW ; ; RMBO REGISTER RETURN BUFFER 
163 000136 $BUF:: .BLKW ©258, " BUFFER FOR DISK 1/0 
164 0403 SBUFRX::BLKW 0. : DIRECTIVE BUFFER 
165 040336" SBUF X==$BUF RX : BUFFER FOR DIRECTIVE USE 
167 sBAD SECTOR AND DEFECT STORAGE AREA 
169 041156 $MD8S°::.BLKW 256. : BUFFER FOR 16 BIT MDBSF 
170 042156 SUDBSF::.BLKW 256. : BUFFER FOR 16 BIT UDBSF 
171 043156 SSSF:: .BLKW 256.°<S$SSFLN> =; BUFFER FOR 16 BIT SKIP SECTOR FILE 
172 046156 SFEBSF::.BLKW 64, : BUFFER FOR FE CYLINDER DEFECTS 
174 000001 END 


SEQ 6056 
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( 30 PAGES) 


898 WORDS 


: 7942 WORDS 
£300, 20]FMTDAT.C300, 30]FMTDAT=(300, 10]FMTDAT 


VIRTUAL MEMORY USED: 


DYNAMIC MEMORY: 


S$SSBF 046356 
_ ERRORS DETECTED: 


SEQ 0057 
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N 53 
FMTMSG = MESSAGE OUTPUT ROUTINE MACRO M1113 12-JAN-82 11:02 PAGE 3 SEQ 0059 


90 
91 + 
9 ; #e=$MESAG-OUTPUT MESSAGE WITH CURRENT EXIT STATUS 
93 : #*=$MSGWR-OUTPUT MESSAGE WITH WARNING EXIT STATUS 
95 : INPUTS: : ‘ 
96 : RO = ADDRESS OF ‘‘ASCIZ"’ MESSAGE STRING 
98 : 
99 001576 112767 0000006 0000006 SMSGWR::MOVB HE XSUAR SSTATS ;SET WARNING EXIT STATUS 
100 001604 010046 SMESAG: :MOV RO,=(SP5 :SAVE MESSAGE ADDRESS 
101 001606 012700 0000006 MOV #3BuF RO ‘GET PRINT BUFFER ADDRESS 
192 001612 012703 000016' MOV #SMSGI,R3 “GET PREFIX ADDRESS 
103 001616 004767 0000006 CALL OVE ‘STORE PREFIX 
104 001622 012603 MOV (SP)+,R3 ‘GET BASIC MESSAGE ADDRESS 
105 001624 004767 0000006 CALL OV ‘STORE BASIC MESSA 
106 001630 112720 000012 MOVB #12, (RO)+ ‘ADD AN ADDITIONAL LINE FEED 
107 001634 105010 CLRB “TERMINATE THE BUFFER 
108 001636 012700 0000006 MOV #SBUF RO :SET MESSAGE BUFFER ADDRESS 
109 001642 004767 0000006 CALL $PRINT “PRINT THE MESSAGE 
111 001646 012767 O00000C 000000G SFMTEX::MOV #IO.DET!IQ.UMD,$FUNC | ;LOAD DETACH FUNCTION CODE 
112 001654 DIRS  #$DSKPB sDETACH DISK (WHO CARES IF IT FAILS!!) 
113 001662 000167 0000006 JMP SFMTEP “RESTART 
115 000001 END 


os 
FMIMSG = MESSAGE OUTPUT ROUTINE MACRO M1115 12-JAN-82 11:02 PAGE 3-1 SEQ 0040 
SYMBOL TABLE 


R = 1 SMSGR8 001550RG SMSGeC RG MSG4 44RS $MSG 166RG 
aunt SUOTS oy SRSA UTSSOng ST SSNARG at, Sunasns te sanaae 
IO.DET= eeeee GX $MSG1 16RG $MSG ¢ RG MSG4 1162RG 3670 1456RG 
ee ee RR a a 
a ee CA 
SDSKPB= coeeee On $MSG1 407RG a : ¢ RG $MSG5 9 1RG SMSGBA 003 ane 
SFMTEP= seecee GX $MSG16 000421RG MSG 756RG oneGe8 1350RG SMSG 60RG 
SFMTEX O0164ERG smsci7 0 be ORG SMSG : 1010RG $MSG5 1415RG TPRINT= seeeee GX 
Ck a Rd 
SHOVE = tenner GX $MSG2 00003 RG $MSG32 001 6RG 


. ABS. 000000 000 
001 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 618 WORDS ( 3 PAGES) 
DYNAMIC MEMORY: 7942 WORDS ( 30 PAGES) 


ELAPSED TIME: 00:00: 
£300, 20FMTMSG, 300, 30]FMTMSG=C300, 10]FMTMSG 
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1 .TITLE FMTSUB = FORMAT SUBROUTINES 
é -IDENT / 102 00/ 
4 : 
5 * COPYRIGHT (C) 1980.1 
§ : DIGITAL E 
8 : 
9 : THIS SOFTWARE IS FU 
10 : SINGLE COMPUTER SYSTEM 
11 : OF THE OVE COPYR!G 
12 : COPIES THEREOF, MAY NO 
1 : TO ANY OTHER PERSON 
14 : WHO AGREES TO THESE LI 
15 : THE SOFTWARE CCuALL AT AL 
17 : THE INFORMATION IN THI 
18 : NOTICE AND SHOULD NOT BE C 
19 : EQUIPMENT CORPORATION. 
21 : DIGITAL ASSUMES NO RESPONS 
22 > ITS SOFTWARE ON EQUIPMENT W 
24 : 
25 > VERSION 02.00 
27 > C. HESS 21-AUG=80 
28 : M. LEAVITT  02-JUL-82 


982 
QUIPMENT T CORPORATION, MAYNARD, MASS. 


su TO CHANGE WITHOUT 
MMITMENT BY DIGITAL 


R THE USE OR RE 
T SUPPLIED BY D 


zn 
co 


SEQ 0041 
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32 :¢ 
a > #=-$MVPAT=LOAD THE DATA BUFFER WITH THE DISK DATA PATTERN 
2? : INPUTS 
37 : 
38 : OUTPUTS: | 
tn ; "$BUF* LOADED WITH 'SPAT’ & 'S$PAT+2° 
42 - 
43 000000 016701 0000006 SMVPAT: :MOV TRKSZ,R1 : LOAD THE DISTRIBUTION COUNTER 
44 000004 006201 ASR R1 : CONVERT BYTE COUNT TO WORD COUNT 
45 000006 006201 ASR R1 : CONVERT TO 2 WORD COUNT 
6 000010 012700 0000006 MOV #SBUF ,RO s BUFFER POINTER 
7 000014 016720 0000006 1$: MOV SPAT, (RO) + : MOVE THE PATTERN 
48 000020 016720 0000026 MOV SPAT#2,(RO)+ : 
49 000024 005301 DEC R1 ; DECREMENT THE DISTRIBUTION COUNTER 
50 000026 100372 BPL : IF PL, MORE TO DO 
31 000030 000207 RETURN : 
53 s+ 
2° : OUTPUT ERROR MESSAGE 
56 : INPUTS: 
57 ; R1 = VALUE TO CONVERT 
28 : R3 = ADDRESS OF BASIC MESSAGE 
60 + OUTPUTS: 
61 : NONE. 
5 ‘ 
64 000032 012700 0000006 SEROUT: :MOV #SBUFRX,RO : GET OUTPUT BUFFER ADDDRESS 
65 000036 004767 000176 CALL SMOVE STORE BASIC MESSAGE 
66 000042 005002 CLR :SUPRESS LEADING 0'S 
67 000044 004767 0000006 CALL $CBDMG *CONVERT TO DECIMAL 
68 000050 112720 000056 ERROU]: MOVB #°.,(RO)+ sSTUFF DECIMAL INDICATOR 
69 000054 112720 000040 MOVB #* ,(RO)+ :STUFF BLANK IN MESSAGE 
70 000060 105010 CLRB ss (ROS “TERMINATE STRING 
71 000062 005001 CLR R1 *SET NULL CARRIAGE CONTROL 
72 000064 012700 0000006 MOV #SBUFRX,RO : GET OUTPUT BUFFER ADDRESS 
oz 000070 000167 0000006 JMP SPRNTO :PRINT MESSAGE 
75 34 
7é + ##-$EROCT-CONVERT TO OCTAL AND PRINT 
77 : INPUTS: 
78 : R1 = VALUE TO CONVERT 
79 : R3 = MESSAGE ADDRESS 
80 s OUTPUTS: 
S : MESSAGE PRINTED ON TI: 
83 : 
84 000074 012700 000000G SEROCT: :MOV #SBUFRX,RO ; 
85 000100 004767 000134 CALL SMOVE ; 
86 000104 105202 INCB R s INCLUDE LEADING ZEROS 
87 000106 004767 000000G CALL $CBOMG sCONVERT TO OCT 
88 000112 112720 000040 MOVB w* o(ROD¢ -STUFF BLANK IN MESSAGE 


FMTSUB = FORMAT 


ad xd 
Ssss 


CALA AAAI PRP RANI DRIR) 3? ot et ot ot ot et 
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a Pe ee ee ee LL eee eee ee eee eee ee 
abet ee 
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WS ny OO 


ssessseecees 
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SUBROUTINES MACRO M1113 O2-JUL-82 13:20 PAGE 2-1 


010167 
000207 


0000006 
0000006 
000174 

0000006 


0000006 
000156 
0000906 


0000006 
0000006 


0000006 
0000006 
000010 

000000C 
0000006 
0000006 


(RO) 


$ 


R1 
#SBUFRX,RO 
PRNTO 


; TERMINATE STRING 
sSET NULL CARRIAGE CONTROL 


“SEND MESSAGE 


*#=-$CVIDA-CONVERT DISK ADDRESS TO LOGICAL BLOCK NUMBER 
THIS SUBROUTINE CONVERTS A DISK ADDRESS TO A LOGICAL 
BLOCK E YY IS: 

TRK) © SMXSEC + $SEC 


BLK = 


INPUTS: 
SCYL 
$STRK 
$SEC 


OUTPUTS: 
$LBNH 


SLBNL 


SCVTDA: :MOV 


1$: 


THE FORMULA US 
SCYL * SMXTRK + 


CYLINDER NUMBER 
TRACK NUMBER 
SECTOR NUMBER 


HIGH ORDER BLOCK NUMBER 
LOW ORDER BLOCK NUMBER 


SCYL 


L 
STRK RO 


SMXSEC,R1 


ULT 
da 


RO. SLBNH 
R71, SLBNL 


Snee2se 


R1 
SMXTRK.RO 


GET CYLINDER NUMBE 


R 
GET TRACKS PER CYLINDER 
MULTIPLY 


GET TRACK NUMBER 
ADD TO PARTIAL TOTAL 


GET SECTORS PER TRACK 
MULTIPLY 


LTIPL 
ADD IN SECTOR 
DON’T FORGET CARRY 
SAVE HIGH ORDER BLOCK NUMBER 
SAVE LOW ORDER BLOCK NUMBER 


#t-$HOMSK-ISSUE A HOME SEEK FUNCTION 
THIS SUBROUTINE WILL ISSUE A HOME SEEK FUNCTION. 


INPUTS: 
NONE 


OUTPUTS: 


HOME SEEK ISSUED TO DISK. 


JMP 
RETURN 


;RESET BLOCK NUMBER 


Q.UMD RS 
>SETUP DEFAULT BUFFER ADDRESS 


DUMMY UP BYTE COUNT 


T HOME SEEK FUNCTION CODE 


;D0 THE FUNCTION AND EXIT 


SEQ 0043 


r 6 
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146 : 
re ; t*-SMOVE-MOVE ASCIZ STRING INTO BUFFER 
133 : THIS SUBROUTINE WILL MOVE AN ASCIZ STRING INTO A BUFFER. 
151 > INPUTS: 
128 ; RO = ADDRESS OF BUFFER. 
133 ; R3 = ADDRESS OF ASCIZ TEXT TO MOVE. 
155 : OUTPUTS: 
136 ; RO = POINTS TO NEXT PLACE IN BUFFER. 
158 , 
159 000240 112320 SMOVE:: MOVB (R3)+,(RO)+ sSTORE TEXT CHARACTER 
160 000242 001376 BNE SMOVE ‘IF NE CONTINUE TO STORE 
161 000244 105740 TSTB =—s-_ = (RO) ‘POINT TO NEXT BUFFER POSITION 
162 000246 000207 RETURN : 
i 
so 
165 : #*=$PRMPT=PROMPT USER AND SOLICIT A RESPONSE 
167 : THIS SUBROUTINE WILL PROMPT THE USER AND THEN WAIT FOR KIS 
168 : RESPONSE. 
169 : 
170 : INPUTS: 
a1 : RO = ADDRESS OF PROMPT MESSAGE. 
173 : OUTPUTS: 
174 : R3 = BYTE COUNT 
175 : BUFFER IS TERMINATED 
176 : 7 = 1 If BYTE COUNT IS ZERO 
Wz? : 27 = 0 IF BYTE COUNT IS NON-ZERO 
179 
180 000250 012701 000044 SPRMPT: :MOV #'S,R1 sSET CARRIAGE CONTROL 
181 000254 004767 0000006 CALL § $PRNTO “PROMPT THE USER 
182 000260 005067 0000006 CLR SBUF RX “CLEAR USER'S RESPONSE BUFFER 
183 000264 004767 0000006 CALL $READ ‘GET THE USERS RESPONSE 
184 000270 103422 BCS MSG “IF CS R 
185 000272 016703 0000026 MOV $10ST+2,R3 “GET BYTE COUNT 
186 000276 105063 0000006 CLRB =: SBUFRX(R3) *TERMINATE THE 
187 000302 012700 0000006 MOV #SBUFRX.RO :GET INPUT BUFFER ADDRESS 
188 000306 121027 000141 1$: CMPB sé (RO) , #1411 “LOWER CASE LET 
189 000312 103405 BLO 2 :IF LO NO 
190 000314 121027 000172 cMPB—Ss«éCRO)) , #172 ‘LOWER CASE LETTER? 
191 000320 101002 BH! ‘IF HI NO 
198 000322 142710 000040 BICB #40,(RO) “YES, CONVERT TO UPPER CASE 
193 000326 105720 2$: TSTB ss (ROS + *END OF INPUT BUFFER? 
194 000330 001366 BNE -1F NE NO 
195 000332 005703 TST “TEST FOR NULL LINE 
196 000334 000207 RETURN : 
197 000336 000167 0000006 MSG: JMP SMSGUR “EXIT WITH WARNING STATUS 
199 :¢ 
oor : se@-$MULT<INTEGER MULTIPLY ROUTINE 
202 : INPUTS: 


G 
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oo 
wis 


oO 
oO 
oO 


Ser iyeetyy ps 
Wii & 
OO fMOLTN 


MMPRIMUNOM PON Poe nononoeny 


Sssssessss 


OONOVSWAN $OVDONOUNSWN ODD ~ 
WW 
~~ 
NmoO 


Mornononor 
Mrnonrnrn 


3 


peice hth 
ODO MOAR UNS 


at 000374 
243 000402 
44 


MORIA FIRD PORGRITMIPI PROPRIO AINORINIPD 

PARADRAR ARE Pre = 

DOOdONOWUEFWN OVO NOW 
S35 S 
PEE 
NOeRNS 


010046 
012746 
005000 
006000 
006001 
103002 
066600 
005316 
003371 
022626 
000207 


012746 
6 


000021 


000002 


000001 


SMULT:: MOV 
M 


1$: 


2$: 


RO 
R1 
OUTPUTS: 
RO 
R1 


et ath 
MULTIPLICAND 
HIGH ORDER RESULT 
LOW ORDER RESULT 


ALL REGISTERS ARE PRESERVED 


q 
~~ 
aw 
wu 
vo 
— 


~ ov 
~~ 
tw 
za 
oO 


oa mM DD Rew 
vom 


MAM — PM —-OONWO 


P)+,(SP)¢ 


RETURN 


; DATA AREA OF AN SSF COPY. 


+ 
; we@SSFCRC-COMPUTE CHECKSUM OVER 


TIPLIER FOR ADDS 
UNT 

PART 

HT SHIFT 


NOT ADD 
PLIER TO RESULT 
T THE LOOP COUNT 
RE TO DO 


V-C PrP CWOMM 
zRawemonn Orn» 


SSF DATA 


; THIS ROUTINE WILL COMPUTE THE CHECKSUM OVER THE SPECIFIED 


INITIALIZE CHECKSUM 

ADD DATA WORD TO CHECKSUM 
ROTATE CHECKSUM 

ALL DONE ? 


IF NE, NO 
GET CHECKSUM RESULT 


INPUTS: 
RO = STARTING ADDRESS 
R1 = LENGTH OF DATA AREA 
OUTPUTS: 
RO = POINTS TO CHECKSUM WORD 
R1 = CHECKSUM 
FCRC: MO #1,-(SP) 
: ADD CRO) +, (SP) 
ROL (SP) 
DEC R1 
BNE 1$ 
MOV (SP)}+,R1 
RETURN 


##-$UPDMX-UPDATE MAXIMUM VALUES 
THIS ROUTINE WILL REPLACE THE CURRENT MAXIMUM VALUES FOR THE 


FOR DEVICE GEOMETRY 


RMBO°S CURRENT GEOMETRY WITH THE VALUES SUPPLIED IN THE 
SPECIFIED TABLE. 


INPUTS: 
R 


NUTPUTS: 


3: 


POINTER TO SPECIFIED TABLE 


SEQ 0045 
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260 : R3 = POINTS PAST END OF SPECIFIED TABLE 

$0) ; SMXLBN, SMXLBN¢2, SMXCYL, SMXTRK, AND SMXSEC ARE ALL UPDATED 
368 

265 000414 012367 0000006 SUPDMX : : MOV (R3)*,$MXLBN | ;SET UP MAX LBN 

266 000420 012367 0000026 MOV (R3)4 * SMXLBNe2 pes 

267 000424 012367 0000006 MOV (R3)+,$MXCYL SET UP MAX CYLINDER 

268 000430 112367 0000006 MOVB  (R%3)*,$MXSEC | :SETUP MAX SECTOR 

269 000434 112367 0000006 MOVB (R3)+-$MXTRK | :SETUP MAX TRACK 

270 000440 166767 0000006 0000026 SUB SMX SEC. SMXLBN¢2 D0 NOT FORMAT LAST TRACK 
271 000446 005667 0000006 SBC SMXLBN cod 

272 000452 000207 RETURN : 

274 

375 ; *eeSTSTDATEST FOR A VALID DISK ADDRESS (BLOCK NUMBER) 
er? ; THIS SUBROUTINE WILL CONVERT THE DISK ADDRESS TO A LBN AND 
$78 ; CHECK IF THE LOGICAL BLOCK NUMBER IS WITHIN RANGE. 

280 : INPUTS: 

281 ; $SEC, STRK, SCYL SET TO A VALUE. 

283 : OUTPUTS: 

284 : cS If LBN OUT OF RANGE 

285 : CC IF LBN IN RANGE 

oR e 

288 000454 004767 177452 STSTDA::CALL  SCVTDA ;CONVERT PARAMETERS TO LBN 
289 000460 126767 000000G 0000006 CMPB $LBNH,SMXLBN :HIGH BLOCK # IN RANGE? 

290 000466 101007 BHI es ‘IF HI NO 

291 000470 103404 BLO 1$ :IF LO YES 

292 000472 026767 0000006 0000026 CMP SLBNL,SMXLBN¢2 :LOW BLOCK # IN RANGE? 

293 000500 101002 BHI 2$ 31F HI NO 

294 000502 0002 1$: CLC ;SHOW LBN OK 

295 000504 000207 RETURN 

296 000506 00026 2$: SEC °SHOW LBN BAD 

297 000510 000207 RETURN ; 

298 

3 

301 : #e=-$TSTMX=-TEST FOR END OF DISK AND UPDATE DISK PARAMETERS 
20 > THIS SUBROUTINE WILL UPDATE THE DISK PARAMETERS AND TEST 
304 > JF THE PARAMETERS WILL OVERFLOW THE DISK. 

306 > INPUTS: 

307 : SCYL = CURRENT CYLINDER NUMBER 

308 : $TRK = CURRENT TRACK NUMBER 

309 : S$SEC = CURRENT SECTOR NUMBER 

335 * OUTPUTS: 

312 ; CS IF UPDATED PARAMETERS EXCEED DISK LIMITS 
313 : CC if UPDATED PARAMETERS ARE STILL VALID. 

312 : $SEC = 0 IF NORMAL MODE. 

315 5° 

316 


4 
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317 000512 005067 0000006 STSTMX::CLR $SEC : START WITH SECTOR ZERO 

318 000516 0 $267 090000¢ IN TRK * UPDATE TRACK NUMBER 

$86 9005 ¥ $454 0000006 0000006 10$: CHP TRK SMXTRE ; is TRACK NUMBER EXCEEDED? 

; 1 Mit 005067 0000006 CLR TRK * RESET TRACK NUMBER 

332 000536 005267 0000006 INC CYL ; UPDATE CYLINDER NUMBER 
00054 026 67 0000006 0000006 208: CMP CYL SMXCYL : IS CYLINDER NUMBER EXCEEDED? 

33¢ ieee So0se4 ere , } INDICATE VALID PARAMETERS 

$9 Hs Hor os: oem INDICATE PARAMETERS EXCEEDED 

338 000560 300507 "RETURN : 

340 

341 36 

328 s t<=$UNTID=-PUT MESSAGE AND DEVICE/UNIT INTO BUFFER 

344 : THIS SUBROUTINE WILL STORE THE MESSAGE AND THE DEVICE AND UNIT 

a : NUMBER INTO THE BUFFER. 

347 : INPUTS: 

348 ; R3 = ADDRESS OF MESSAGE 

350 : OUTPUTS: 

325 : RO = NEXT BUFFER POSITION 

353 : 

354 000562 012700 0001446 SUNTID: :MOV #$BUF+100.,RO  ;SET BUFFER ADDRESS 

355 000566 004767 177446 CALL SMOVE sPUT MESSAGE INTO BUFFER 

356 000572 116720 0000006 MOVB  $DVICE,(RO)+ :STORE DEVICE NAME 

357 000576 116720 0000016 MOVB S$DVICE+1,(ROD+ ; 

358 000602 005001 CLR R *GET READY FOR THE BISB 

359 000604 156701 0000006 BIS8 $DVUNT,RI *GET UNIT NUMBER 

360 000610 005002 CLR R2 : SUPPRESS LEADING 0°S 

363 000612 000167 0000006 JMP $CBOMG “CONVERT UNIT NUMBER TO ASCII 

ie 

365 : t*-$RDBSF-READ MANUFACTURER'S & USER BAD SECTOR FILES 

367 : THIS SUBROUTINE WILL READ THE MDBSF AND THE UDBSF. 

368 > JF WE ARE RE-WRITING THE LAST TRACK, A EMPTY MDBSF AND UDBSF 

393 : 1S RETURNED. 

371 : INPUTS: 

372 : SMXLBN = DISK ADDRESS GF START OF MDBSF. 

37 > OUTPUTS: 

375 : A GOOD SECTOR OF THE MDBSF AND THE UDBSF ARE READ INTO 

i : THEIR BUFFERS 

78 : 

379 000616 012703 0900006 SRDBSF : : MOV #SLOGDV,R3 : LOGICAL DEVICE ADDRESS POINDER 
000622 004767 177566 CALL SUPOMX * UPDATE THE ADDRESS VALUES 

81 000626 016767 0000006 0000006 MOV SMXLBN,SLBNH =: SET DISK ADDRESS OF MDBSF 

382 000634 016767 0000026 0000006 MOV SMXLBN¢2,SLBNL ; 


84 


85 

386 (00642 
87 000646 
88 009659 


Rinses 


ooCocOo 
nv — 


ree Ue Unto 
oe 
© 


¥ 
ssssgsssssssss 
FESUSRoSKS 


tO td ont ot et OOOO 
ERNVSENS 


_ 
So 


; READ THE MDBSF 


016701 0000006 1$: MOV 
006201 ASR 
000405 8R 
062767 000002 0000006 2$: ADD 
005567 0000006 ADC 
Oh ee tt he 3$: MOV 
004767 000222 CALL 
103017 BCC 
012700 0000006 MOV 
O88) 4$: DEC 
001 $ BNE 
004767 0000006 CALL 
012700 0000006 MOV 
000167 000000G JMP 
010146 : 

004767 0000006 

012601 

000747 

004567 000176 

0000006 

aes 6 63 


103755 
004767 001506 


016767 000000G 0000006 MOV 
016767 0000026 0000006 MOV 
066767 000000G 0000006 ADD 
005567 0000006 ADC 
016701 0000006 MOV 
201 ASR 
405 BR 
062767 000002 0000006 7$: ADD 
005567 0000006 ADC 
012705 0000006 8$ MOV 
004767 000062 CALL 
103017 BCC 
012700 0000606 
005301 9$: DEC 
001006 
004767 0000006 CALL 
012700 0000006 
000167 000000 JMP 
010146 10$: MOV 
004767 0000006 CALL 
012601 MOV 
000747 BR 
004567 000036 11$: JSR 
0000006 - WORD 
0000006 - WORD 
0000006 . WORD 
103755 BCS 
004767 001402 CALL 
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$SMBSSZ,R1 
R1 

: 
#2,$LBNL 

£ NH 
#SMOBSF ,R5 
ROBSF 


6$ 
#$MSG21,R0 
R1 


SPRINT 
#$MSG626 ,RO 
SMSGWR 





SSRTUF 


- 





GET NUMBER OF BLOCKS IN MDBSF 
DIVIDE BY 2 


TRY NEXT USABLE MDBSF BLOCK 


OK 

READ MDBSF 
. SF BLOCKS AVAILABLE? 
T 


B 

ES 

HE ERROR MESSAGE 

TO RECOVER THE MDBSF 
E 

H 


E 
IT 
VE THE MDBSF COUNT 

INT THE MESSAGE 
STORE R1 
TRY AGAIN 
VERIFY THE MDBSF COPY 
“yt SURE POINTER 


D S/N MSG POINTER 
MDBSF CORRUPT MSG POINTER 


: IF CS, MDBSF CORRUPT 
: SORT THE MDBSF 


SET DISK ADDRESS OF UDBSF 
ADDRESS OF THE UDBSF 


GET NUMBER OF BLOCKS IN UDBSF 
DIVIDE BY 2 


TRY NEXT USABLE UDBSF BLOCK 


GET ADDRESS OF UDBSF BUFFER 
cc ae UDBSF 


If CC OK 

CAN'T READ UDBSF 

MORE UDBSF BLOCKS AVAILABLE? 
IF NE, YES 

PRINT THE ERROR MESSAGE 
eT TO RECOVER THE UDBSF 
SAVE THE MDBSF COUNT 

PRINT Na MESSAGE 


SEQ 0044 
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re 001114 000247 


© 
Ww 


Ft a 

Sess 

Sssse 

on en re) 

eo ceed ceed cmd ed and eee om eed and amd ond 

SRA ROONOS 

SSesusons 

ond CR etd et = LIPID 

SeSeaveses 
WANA & SO NON 


ah ab of ob ab 
Set ty te 


os 
© 


ERVSENS 
SSsss5 


SSS88SSSsssss 


eee et eee ed eed eed ed ened wed ee eed or eet ed 


- 

© 

~ ‘ 

oO 

© 

POMOPOROMOIMUAY 

med ened ened ah 

ALO 

S3s= 
Ssy 

moon 

Wn) 


001000 0000006 
000000C 


0000006 


0000006 
0000006 


900002 0000026 


000002 
000006 


RETURN 


+ 
; **-RDBSF-READ THE SPECIFIED BSF FILE 


READ THE BSF (EITHER MDBSF OR UDBSF) SPECIFIED IN R5 
(ROUTINE USED BY ‘*SRDBSF*) 


INPUTS: 
: R5 = eyrrer ADDRESS 
: SLBNL,SLBNH LOADED WITH THE TRANSFER LBN 


>; OUTPUTS: 
cc 


IF TRANSFER WAS NOT SUCESSFUL 


RDBSF: MOV #512. ,$XFRSZ ; SET SIZE OF ONE SECTOR (BYTES) 
MOV W10.RLB!10.X,R35 ; SET READ FUNCTION (WITHOUT RETRIES) 
$DSKIO ; READ 1 BLOCK FROM THE BSF 


CALL 
RETURN 
+ 


; *teVYBSF-VERIFY THE BSF COPY 
; (ROUTINE USED BY "SRDBSF') 


: VERIFY THE BSF COPY SPECIFIED BY THE INPUT PARAMETERS 

: CALL: JSR RS, VYBSF 

; BSF POINTER 

: POINTER TO 'XXBSF SERIAL NUMBER DOESN'T MATCH’ MSG 
: POINTER TO ‘XXBSF COPY CORRUPT’ MSG 









* OUTPUTS: 
RO = SPECIFIC ERROR MESSAGE POINTER 
CC 0 IF BSF NOT CORRUPT 
CS 1 If BSF CORRUPT 
VYBSF : (R5)eR : GET THE 
(R5)¢_-R : BAD S/N 
Ssuist * LISTING 
$ ; IF NE, YES 
(R3) , SSNAME : VERIFY THE SERIAL NUMBER 
4$ * IF NE, FIRST S/N WORD NOT CORRECT 
2(R3),$SNAME+2 : CHECK THE SECOND WORD 
4% > JF NE, SERIAL NUMBER DOESN'T MATCH 
2$ > CHECK THE ALIGNMENT FLAG 
1$: (R3) : IS SERIAL NUMBER NON-ZERO? 
$ : IF NE YES 
(R35) :; MAYBE? 
$ : IF EQ, NO 
2$: 6(R3) > TEST fHE ALIGNMENT DISK FLAG 
4% > IF €0, BSF OK 
3$: (RS) +,RO : CORRUPT BSF MESSAGE POINTER 
‘i > SET THE ERROR INDICATOR 
4$: (R5)¢ * CORRECT THE RETURN 





SEQ 004% 


4 
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498 001220 000241 CLC : SET THE GOOD INDICATOR 

499 001 9 800565 S$: RTS RS : SE TURN’ . _ 

501 3¢ 

20 ; **@SWIBSF-WRITE THE MANUFACTURER'S AND USER'S BAD SECTOR FILES 
$04 : THIS ROUTINE WILL WRITE THE Ig BHT MDBSF AND THE UDBSF ON THE 
505 : PRIMARY DEC STD 144 TRACK (558,13) AND ON THE ALTERNATE TRACK 
506 > (559.1). 

507 : 

508 > INPUTS: 

509 ; NONE. 

510 ; 

511 * OUTPUTS: 

512 : NONE. 

3 , 

515 001224 004767 001232 SWIBSF::CALL SRIMF ; SORT THE MDBSF 

516 001230 004767 001262 CALL SRTUF : SORT THE UDBSF 

517 001234 012703 0000006 MOV #S$LOGDV,R3 : LOGICAL DEVICE ADDRESS POINTER 
518 001240 004767 177150 CALL SUPDMX : UPDATE THE ADDRESS VALUES 

519 001244 012767 001000 0000006 MOV #512. ,SXFRSZ ; SET ONE BLOCK BYTE COUNT 

520 001252 016767 000000G 0000006 MOV $MXLBN,$LBNH : SETUP LBN 

221 001260 016767 0000026 0060006 MOV SMXLBN¢2,$LBNL ; ... 

223 : WRITE THE 16 BIT MOBSF 

525 001266 012705 0000006 MOV #SMDBSF RS : SET MDBSF ADDRESS 

526 001272 016701 0000006 MOV $MBSSZ,R1 : GET NUMBER OF BLOCKS IN MDBSF 
527 001276 006201 ASR R : DIVIDE BY T 

528 001300 012703 000000C MOV #I1O.WLT!1Q.X%,R3 : SET WRITE LAST TRACK FUNCTION CODE 
329 001304 004767 000110 CALL 1$ : WRITE THE MDBSF 

331 : WRITE THE 16 BIT UDBSF 

533 001310 012705 0000006 MOV #SUDBSF RS : UDBSF ADDRESS 

534 001314 016701 0000006 MOV $UBSSZ,R1 > GET NUMBER OF BLOCKS IN UDBSF 
535 001320 006201 ASR : DIVIDE BY TWO 

536 001322 012703 000000C MOV #IO.WLT!10.X%,R3 : SET WRITE LAST TRACK FUNCTION CODE 
237 001326 004767 000066 CALL 1$ > WRITE THE UDBSF 

239 : WRITE THE ALTERNATE DEC STD 144 TRACK (559,1) 

541 001332 012703 0900006 MOV #SPHYDV,R3 + CHANGE TO PHYSICAL ADDRESSING 
542 001336 004767 17705 CALL $UPDMX : UPDATE THE MAX VALUES 

543 001342 016767 000000G 0000006 MOV SALFLB.$LBNH $$: ALTERNATE DEC STD 144 ADDRESS 
ane 001350 016767 0000026 0000006 MOV SALFLB+2,$LBNL_ ; 

ang : WRITE THE ALTERNATE MDBSF 

548 001356 012705 0000006 MCV #SMDBSF RS : SET MDBSF ADDRESS 

549 001362 016701 000000G MOV SMBSSZ,R1 * NUMBER OF BLOCKS IN THE MDBSF 
550 001 006201 ASR R1 - DIVIDE BY Two 

551 0013 0 012703 000000C MOV #10. FEW! 10.UMD.RS :SET WRITE FE CYLINDER FUNCTION 
23¢ 001374 004767 000020 CALL 1 : 

554 : WRITE THE ALTERNATE UDBSF 
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222 001400 012705 0000006 MOV #SUDBSF RS UDBSF ADDRESS 

557 Sota 01670) 0000006 MOV SUBSSZ,R1 > UDBSF SIZE 

558 001410 00 201 ASR : DIVIDE BY Two 

559 001412 012746 000000C MOV #10.FEW!10.UMD ,~(SP) sSET WRITE FE CYLINDER FUNCTION 
200 oO 1a Steet 1$ AOV es (SP) : SAVE THE FUNCTION CODE 

362 ate 2 817808 2$: MOV (SP) R3 : LOAD THE FUNCTION CODE 

563 001424 004767 0000006 CALL  $DSKi0 : WRITE THE BLOCK 

564 001430 062767 000002 0000006 ADD #2,$LBNL : UPDATE BLOCK NUMBER 

ee Soles 00330) oe Dee LBNH : FINISHED WITH THE BSF ? 

567 001444 601366 BNE $ : IF NE NO 

568 001446 005726 TST (SP)+ * CORRECT THE STACK 

369 001450 000207 RETURN : 

$71 2+ 

272 + te-$QDSSF-READ RMBO SKIP SECTOR FILE 

574 : THIS ROUTINE WILL READ THE SKIP SECTOR FILE FOUND ON THE FIRST TRACK 
29? : OF THE FE CYLINDER AREA ON THE RMBO. 

577 ; INPUTS: ) 

278 : SSSFLB = DISK ADDRESS OF START OF SKIPPED SECTOR FILE 

580 : OUTPUTS: 

281 ; A GOOD COPY OF THE SSF IS READ INTO SSF BUFFER 

oar a 

585 001452 012703 0000006 SRDSSF : :MOV #SPHYDV,R3 : PHYSICAL DEVICE ADDRESS POINTER 

586 001456 004767 176732 CALL § $UPDMX : UPDATE THE ADDRESS VALUES 

587 001462 012767 000000C 0000006 MOV #512. *<$SSFLN>,SKFRSZ ; SET SIZE OF ONE COPY OF SSF (BYTES) 
588 001470 016767 000000G 000000G MOV SSSFLB,$LBNH =; SET DISK ADDRESS OF SSF 

589 001476 016767 0000026 0000006 MOV SSSFLB+2,$LBNL_ ; 

590 001504 016701 000000G MOV $SSFSZ,RI1 * GET NUMBER OF COPIES OF SKIP SECTOR FILE 
591 001510 010146 MOV R1,-(SP) : SAVE THE COPY COUNT 

592 001512 000405 BR : CONTINUE 

593 001514 062767 0000006 0000006 1S: ADD #SSSFLN,SLBNL =: TRY NEXT USABLE SSF COPY 

594 001522 105567 000000G ADCB  #$$LBNH : 

595 001526 012705 0000006 2$: MOV #SSSF RS - GET ADDRESS OF SKIP SECTOR FILE BUFFER 
596 001532 012703 000000C MOV #IO.FER'IQ.UMD,RS ; READ FE CYLINDER FUNCTION 
97 001536 004767 CALL  $DSKI > READ 1 COPY OF SSF 

98 001342 103017 BCC 5% : 

599 001544 012700 0000006 MOV #$MSG58,R0 : SSF 

600 001550 012601 3$: MOV (SP)+,R1 : GET THE SSF COPY COUNTER 

601 001552 005301 DEC R1 > DECREMENT THE COPY COUNTER 

602 001554 001006 BNE > JF NE, TRY AG 

603 001556 004767 0000006 CALL RINT : PRINT THE ERROR MESSAGE 

604 001562 012700 0000006 MOV #$MSG41,R0 ; UNABLE TO RECOVER SSF 

605 001566 000167 0000006 JMP SMSGUR > EXIT, CAN'T READ SSF OR SSF CORRUPT 
606 G0137¢ 010146 4$: MOV R1.-(SP) : § 

607 001574 004767 0000006 CALL  $PRINT > PRINT THE MESSAGE 

608 001600 000745 BR 1$ > TRY 

609 001602 012700 000000G S$: MOV #SSSF, : START WITH HEADER 

610 001606 012701 1777776 MOV #SSSFHD-1,R1 : AND I 

611 001612 004767 176556 CALL SFCRC : COMPUTE HEADER CHECKSUM 
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612 001616 020120 CMP R1,(RO)+ ; CHECK THE CHECKSUM WORD 
gig 0016 061030 BNE 6$ : IF NE, BAD CHECKSUM 
614 0016 O12? 1 1777776 MOV #SSSFDT=-1,R1 > DATA FIELD LENGTH 
615 0016 04767 176542 CALL = SSFCR : COMPUTE CHECKSUM OVER DATA AREA 
616 001632 02011 CMP R1, (RO) : CHECKSUM OK? 
617 001634 0 191 BNE t : IF NE, NO 
618 0016 : 005767 0000046 TST SSF +4 : CREATION DATE PRESENT 
619 001642 001407 BEQ 6s : IF €Q, NO 
620 001644 005767 0000066 TST SSF +6 : REVISION DATE PRESENT 
621 001650 001404 BEQ 6 : IF €Q, NO 
6 é 001652 122767 000001 0000126 CMPB es #1, $SSF +12 : 16 BIT MODE SSF ? 
623 001660 001403 BEQ rs : IF €Q, YES 
624 001662 012700 0000006 6S: MOV #$MSG59,RO : §SF CORRUPT 
625 001666 000730 BR 3$ : TRY AGAIN 
626 001670 005726 7$: TST (SP)+ * CORRECT THE STAC 
627 001672 105767 0000006 1TSTB 4=—s-s S$SWLST * LISTING THE BSF'S ? 
628 001676 001026 BNE 10$ : IF NE, YES 
629 001700 105767 0000006 TSTB $SWMOD * MODIFYING THE BSF'S 
630 001704 001007 BNE 8$ : IF NE, YES 
631 001706 016767 0000006 0000006 MOV SSF. SSNAME : COPY THE SERIAL NUMBER 
632 001714 016767 0000026 0000026 MOV $SSF4+2,$SNAME42 : 
633 001722 000414 BR 10$ ; 
634 001724 026767 0000006 000000G 8s: CMP SSSF , SSNAME > CHECK THE SERIAL NUMBER 
635 001732 001004 BNE 9$ : IF NE, DOESN'T MATCH 
636 001734 026767 0000026 0000026 CMP SSSF +2, SSNAME +2 : CHECK THE SECOND S/N WORD 
637 001742 001404 BEQ 10$ : J ; 
638 001744 012700 0000006 9$: MOV #MSGERB,RO * HDA AND ENTERED SERIAL NUMBER DON'T MATCH 
639 001750 000167 0000006 JMP SMSGWR : EX 
640 001754 000167 000446 10$: § JMP SSRTSF : SORT THE SSF AND RETURN 
642 at 
643 : ee=$WISSF-WRITE RMBO SKIP SECTOR FILE 
645 : THIS ROUTINE WILL WRITE THE SKIP SECTOR FILE FIVE TIMES ON THE FIRST 
646 > TRACK OF THE FE CYLINDER AREA OF THE RMB80 (559.0). 
648 : INPUTS: 
649 : S$SSFLB = DISK ADDRESS OF START OF SKIP SECTOR FILE 
651 > OUTPUTS: 
652 ; WRITE SKIP SECTOR FILE 
653 s 
g2¢ 3 
656 001760 004767 000442 SWISSF::CALL  $SRTSF : SORT THE SSF 
57 601764 012703 0000006 MOV #SPHYDV,R3 : PHYSICAL DEVICE ADDRESS POINDER 
658 001770 004767 176420 CALL SUPDAK : UPDATE THE ADDRESS VALUES 
659 001774 012700 0000006 MOV #SSSF RO *GET POINTER TO SKIP SECTOR FILE 
660 902000 012701 1777776 MOV #SSSFHD-1,R1 *GET LENGTH OF HEADER 
661 002004 004767 176364 CALL SSF CRC : COMPUTE HEADER CHECKSUM 
662 002010 010120 MOV R1,(RO)+ “STORE CRC AWA 
663 002012 012701 1777776 MOV #SSSFDT-1,R1 | :GET LENGTH OF SSF DATA AREA 
664 002016 004767 176352 CALL  SSFCRC “GO COMPUTE CHECKSUM OVER DATA 
665 0020 2 010110 MOV R1, (RO) “STORE THE DATA FIELD CRC 
so Gootes Bieter S0GnnRE 0000006 Ee ASSL SHEET ced Gt contrite BurfoR aopnege, OY" 
668 is 012703 000000C MOV #IO.FEW!IQ.UMD,RS “SET WRITE FE CYLINDER FUNCTION 
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000006 


™~m 
ad 


$s 


1$: 


BN 
RETURN 


; SETUP LBN 


#e-$SRTRK=SEARCH BSF OR SSF FOR 
nase ROUTINE WILL SEARCH EITHER T 


2$: 


3$: 


; INPUTS: 
: $SEC, STRK, AND SCYL PRESET 


; "SSMBSF* INPUTS: 


GE; ar i gue COPIES OF SKI? SECTOR FILE 


WRIT 


PDATE "BLOck NUMBER 


ANY SECTOR ON A TRACK 
HE BSF OR THE SSF FOR ANY SECTOR 


ON THE CURRENT TRACK AND CYLINDER. IF ONE IS FOUND, THEN NO ADDITIONAL 
SECTORS MAY BE SKIPPED ON THE CURRENT TRACK AND CYLINDER. 
INPUTS: 
Rl = ADDRESS OF EITHER BSF OR SSF 
R2 = MAXIMUM ADDRESS OF THE FILE SPECIFIED IN R1 
OUTPUTS: 
CC = SOME SECTOR ON THE CURRENT TRACK AND CYLINDER 
ADDRESS OF BSF OR SSF ENTRY 
cS = SPECIFIED FILE EXHAUSTE 
POINTS TO NEXT ENTRY 
RTRK::CMP (R1)+, (R1)4 ; POINT OT NEXT ENTRY IN SPECIFIED FILE 
CMP (R1) ,#=1 > FILE EXHAUSTED 
BEQ 3g : IF EQ, YES 
CMP (R1) ,SCYL : CYLINDER NUMBER MATCH ? 
BNE ¢ : IF NE, NO 
CMPB (R1) ,STRK > TRACK “NUMBERS MATCH ? 
BNE 2t : IF NE 
CLC > SHOW ou ENTRY WAS FOUND 
RETURN ; 
R1,R2 : IS SPECIFIED FILE EXHAUSTED ? 
SSRTRK : IF NE 
SEC > SHOW ou SPECIFIED FILE EXHAUSTED 
RETURN 


+ 
: Ba Sen BS ee a. 





SEQ 0055 
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726 : R1 = ADDRESS OF LAST BSF ENTRY (INITIALLY $BSF +4) 
227 R2 = LAST ADDRESS OF SPECIFIED FILE 
729 > OUTPUTS: 
7 $0 : IF CC R1 = ADDRESS OF MDBSF ENTRY. 
731 : R3 = ISOLATED BAD SECTOR FLAGS. 
ie : IF CS R1 = POINTS TO NEXT ENTRY (FILE EXHAUSTED) 
734 
235 .ENABL LSB 

37 002150 016746 0000006 SSRALL: :MOV $SEC,-(SP) ; SAVE THE SECTOR ADDRESS 

38 002154 004767 000100 CALL  $SRSOF : SEE IF ENTRY IN THE SSF 

002160 103015 BCC es : IF CC, IT IS 

740 002162 004767 000154 CALL SRSSF : SEE IF ERROR SECTOR IS WITHIN A SKIP REGION 
741 002166 103402 BCS 1$ : IF CS, NO 
742 002170 105367 0000006 DECB =: SSE : DECREMENT THE SECTOR ADDRESS 
743 002174 004767 000034 1$: CALL § $SRMDF : SEARCH TNE MD 

4 002200 193005 BCC 2$ : IF CC, ADDRESS PRESENT 
745 002202 004767 000040 CALL § $SRUDF : SEARCH THE UDBSF 

002206 10300 BCC 2$ : IF CC, ADDRESS PRESENT 

747 002210 004767 000006 CALL $SRFES : SEE IF ENTRY DUPLICATED IN THE FE AREA 
748 002214 012667 0000006 2$: MOV (SP)+,$SEC > RESTORE THE SECTOR ADDRESS 
749 002220 000207 RETURN ; 
751 002222 012701 1777746 SSRFES: :MOV #SFEBSF : FEBSF STARTING ADDRESS 
752 002226 012702 0001006 MOV #SFEBS SF sek” R2 > FEBSF LENGTH 
33 002232 000416 BR 3$ ; 
755 002234 012701 9290046 SSRMDF : :MOV #SMDBS MDBSF STARTING ADDRESS 
756 002240 012702 0007746 MOV osrpst+1600-4, Re > MDBSF LENGTH 
97 002244 000411 BR 3$ 
759 002246 012701 0000046 SSRUDF : :MOV #SUDBSF +4,R1 UDBSF STARTING ADDRESS 
760 002252 012702 0007746 MOV #SUDBSF +1000-4, Re > UDBSF LENGTH 
761 002256 000404 BR 3$ 
763 002260 012701 000000C SSRSDF : :MOV WSSSF+<2*S$SSFHD>=4.R1__; SSF STARTING ADDRESS (~4) 
764 002264 012702 000000 MOV #SSSF+<1000*$SSFLND>-2,R2° : SSF ENDING ADDRESS 
765 002270 3$: 
767 002270 022121 SSMBSF :: ( : POINT TO NEXT MDBSF ENTRY 
768 002272 021127 177777 ( : MDBSF EXHAUSTED? 
769 002276 001417 5 > IF €Q YES 
770 002 021167 0000006 ( > CYLINDER NUMBERS MATCH? 
771 002304 001012 4 : IF NE NO 
772 002306 126167 000003 0000006 ZR : TRACK NUMBERS MATCH? 
773 002314 001006 i > JF NE NO 
774 002316 126167 000002 0000006 2 : SECTOR NUMBERS MATCH? 
775 002324 001002 4 : IF NE NO 
776 002326 000241 : SHOW ENTRY WAS FOUND 
777 002330 000207 ; 
778 002332 020102 4$: : IS SPECIFIED FILE EXHAUSTED? 
779 002334 001355 : IF NE, NO 
780 002336 000261 5$: : SHOW MDBSF EXHAUSTED 
781 002340 000207 R : 
782 .DSABL LSB 





FMTSUB - FORMAT SUBROUTINES MACRO M1113 O2-JUL=82 13:20 PAGE 2-13 ate SEQ 0055 


783 

784 3+ 

MF 3 t#-$SRSSF-SEARCH SSF FOR AN TRACK ENTRY 

787 > THIS ROUTINE WILL SEARCH THE SSF FOR AN ENTRY ON THE CURRENT TRACK AND 
788 ; CYLINDER, IF AN ENTRY 1S FOUND WHICH IS LESS THAN THE SECTOR ADDRESS 
ree : IN '$SEC', THE ROUTINE WILL RETURN WITH THE 'C’ BIT CLEAR. 

791 > INPUTS: 

79 : SCYL LOADED WITH THE CYLINDER ADDRESS 

79 : STRK LOADED WITH THE TRACK ADDRESS 

La ; S$SEC LOADED WITH THE SECTOR ADDRESS 

796 : OUTPUTS: 

797 : CC = SSF ENTRY .LE. ADDRESS IN SCL K,$SEC 

798 : CS = NO SSF ENTRY .LE. ADDRESS IN $ "Sear $SEC 

800 j 

B01 002342 010146 SSRSSF : :MOV R1,- : SAV 

802 00234% 012701 000000C MOV #S8S P: <2+85SFHD>, a BEGINNING | ADDRESS OF SSF DATA 
803 002350 021167 0000006 1$: CMP tits: ; ir NUMBERS MATCH 

804 002354 001012 BNE 4 ; 

805 002356 126167 000003 0000006 CMPB (R1) .$TRK : TRACK NUMBERS MATCH ? 

806 002364 001006 BNE g : IF NE, NO 

807 002366 126167 000002 0000006 CMPB (R1), $SEC > CHECK FOR A SECTOR 

808 002374 101011 BHI $ ; IF HI, SSF ENTRY 

809 002376 000241 CLC > SHOW $SEC' 1S WITHIN SKIP REGION 
810 002400 000410 BR 4$ : OK, EXIT 

812 002402 020127 000000C 2$: CMP RI, #SSSF +<1000*SSSFLND~2 ; SSF BUFFER END ? 
813 002406 001404 BEQ 3. ; IF 

814 002410 022121 CMP (R1)#,(R1)¢ ; INCREMENT BUFFER POINTER 

815 002412 021127 177777 CMP (R1) ,#=1 ; SEE IF END OF DATA 

816 002416 001354 BNE 1$ ; ‘ 

817 002420 000261 3$: SEC > SHOW '$SEC’ NOT IN SKIP REGION 
818 002422 012601 i$: MOV (SP)+,R1 > RESTORE R1 

819 002424 000207 RETURN 

821 3+ 

822 * ste$SRTSF<SORT THE SSF BUFFER 

824 : INPUTS: 

825 s NONE 

826 ; 

827 : OUTPUTS: 

828 ; SSF FILE SORTED IN ASCENDING SEQUENCE 

829 : 

334 2 

832 002426 012767 001061 O00U00G S$SRTSF::MOV #561. ,$CYL ; LOAD A PHONY CYLINDER ADDRESS 
833 002434 005067 0000006 CLR STRK ; CLEAR THE TRACK ADDRESS 

834 002440 005067 0000006 CLR $SEC ; CTOR 

835 002444 004767 177610 CALL $SRSOF ; FIND THE END OF THE DATA 

836 002450 010103 MOV R1,R3 ; COPY THE END OF DATA POINTER 

837 002452 012701 000000C MOV #SSSF+<2*$SSFHD>, R1 SSF STARTING ADDRESS 
838 002456 000167 000070 JMP $SORT : SORT THE SSF 


? 
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840 :¢ 
B41 ; **-$SRTMF-SORT THE MDBSF BUFFER 
84 : INPUTS: 
B44 ; NON 
845 : 
846 : OUTPUTS: 
Bea ; MDBSF SORTED IN ASCENDING SEQUENCE 
is . 
851 002462 012767 001061 0000006 $SRTMF::MOV #561.,$CYL ; LOAD A PHONY CYLINDER ADDRESS 
852 00247 88587 0000006 CLR STRK ; CLEAR THE TRACK ADDRESS , 
853 00 005067 ea te CLR SSEC 3 SE 
854 002500 004767 177530 CALL hes i : oe HE MDBSF 
855 002504 010103 MOV R1,R : COPY THE END OF DATA POINTER 
856 002504 012701 0000106 MOV @SMDBSF+10,R1  ; MDBSF STARTING ADDRESS 
837 002512 000167 000034 JMP $SORT > SORT THE MDBSF 
859 
860 3+ 
oe} s ee=$SRTUF-SORT THE UDBSF BUFFER 
863 : INPUTS: 
864 : NONE 
865 ; 
866 : OUTPUTS: 
867 UDBSF SORTED IN ASCENDING SEQUENCE 
3 ‘ 
871 002516 012767 001061 000000G $SRTUF::MOV #561.,$CYL : LOAD A PHONY CYLINDER ADDRESS 
872 002524 005067 0000006 CLR STRK $ CLEAR THE TRACK ADDRESS 
873 002530 065067 G CLR $SEC ; SECTOR 

4 002534 004767 177506 CALL SSRUDF : SEARCH THE UDBSF 
875 002540 010103 MOV R1,R : COPY THE END OF DATA POINTER 
876 002542 012701 0000106 MOV #SUDBSF+10,R1 , UDBSF STARTING ADDRESS 
oer 002546 000167 000000 JMP SSORT : SORT THE UMDBSF 
879 : 
880 3 t#-$SORT-SORT THE INPUT TABLE 
831 : THIS ROUTINE SORTS THE INPUT TAGLE IN ASCENDING ORDER 
oe : BASED ON DISK ADDRESSES. 
884 > INPUTS: 
885 : R1 = TABLE START ADDRESS 
886 : R3 = TABLE UPPER LIMIT ADDRESS 
888 > OUTPUTS: 
889 ; SORTED TABLE 
890 ; 
3 . 
B38 002552 010302 $SORT: MOV R3,R : R2 = CURRENT ENTRY POINTER 
892 002554 160102 SUB R1,R ; TEST FOR AT LEAST 
895 002556 022702 000004 CMP #4,R : TWO ENTRIES IN TABLE 

002562 103042 BHIS 4% : JF NOTCHIS), NO NEED TO SORT 
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897 002564 01019 MOV R1,R2 : INIT R2 

898 002566 02 2 CMP (Rd)+,(R2)4 : 

899 002570 01 000076 MOV R3, TEMP : FORM AND SAVE 

900 002574 162767 000004 000070 SUB ai’ TEMP : UPPER LIMIT ON R1 

901 002602 O2111¢ 1$: CMP CR1), (R2) ; CYL 1 = CYL 141? 

902 002604 00241 BLT . : IF LT YES 

903 002606 001004 BNE i : IF NE CYL I >» CYL 141 

904 002610 026162 000002 000002 CMP (R1),2¢R2) : CYL I = CYL 141... TEST TRK/SEC 

905 002616 00341 BLE $ : IF LE NO SWAP NECESSARY 

906 002620 011146 2$: MOV (R1),=(SP) * SWAP ENTRIES 

907 002622 016146 000002 MOV 2(R15, (SP) ; : 

908 002626 Orig) MOV (R2),¢R1) : ; 

909 002630 016261 900002 000002 MOV (Res .g(R}) : ; 

910 002636 012662 00000 MOV (SP)+,2(R2) : : 

911 002642 01261 MOV (SP) + (R2) : : 

92 002644 02 2 3$: CMP (R2)+.(R2)+ * UPDATE R2 

913 002646 020 CMP Re.R3 : THIS PASS DONE? 

914 002650 0 : 54 BLT 1 : JF LT NO 

915 002652 02 121 CMP (R1)4,(R1)¢ : UPDATE R1 

916 002654 020167 000012 CMP R1, TEMP : ALL DONE? 

917 002660 002003 BGE 4$ : IF GE YES 

918 002662 019102 MOV R1,R2 : RESET R2 

919 002664 02222 CMP (R2)+,(R2)¢ : 

920 002666 000745 BR 1$ ; 

921 002670 000207 4$: RETURN : 

925 002672 000000 TEMP: .WORD 0 : SORT WORK LOCATION 

925 3+ 

335 : ##=GENHDR=GENERATE HEADER WORD PATTERN 

928 > THIS SUBROUTINE WILL GENENRATE THE 2-WORD HEADER PATTERN. 

930 : INPUTS: 

931 ; RO = BUFFER ADDRESS 

933 : OUTPTUS: 

93% : RO = UPDATED BUFFER ADDRESS 

936 : 

937 002674 016710 0000006 GENHDR: : MOV $CYL, (RO) : SET CYLINDER NUMBER 

938 002700 116760 0000006 000002 MOVB  $SEC,2(RO) : SET SECTOR NUMBER 

939 002706 116760 0000006 000003 STARK. 3(RO) > SET TRACK NUMBER 

940 902714 052710 #15 (RO) > SET GOOD SECTOR AND 16-BIT FORMAT BITS 

941 002720 116746 0000006 $SEC,-(5P) > SAVE THE CURRENT SECTOR ADDRESS 

378 : SEARCH THE SKIP SECTOR FILE FOR A SECTOR ON THIS TRACK THE SAME AS 

944 > *$seC*. IF A SECTOR IS FOUND, THEN SET THE SKIP SECTOR FLAG IN THE 

965 > REMAINING HEAD’SS AND NOTE THAT A SKIPPED SECTOR WAS FOUND. 

947 002724 004767 177330 1$: CALL  SSRSDF : SEARCH FOR 'S$SEC° IN SKIP SECTOR FILE 
8 002730 103403 BCS : IF CS, NOT IN SSF 

949 002732 052710 020000 BIS #20000, (RO) : SET SKIP SECTOR FLAG (BAD) 

950 002736 000430 BR 6 : EXIT ; 

951 002740 004767 177376 2$: CALL §$ SSRSSF * SEARCH FOR '$SEC' WITHIN SKIP REGION 

952 002744 103404 BCS $ > TF CS, NOT IN SSF 

953 002746 052710 020000 BIS #20000, (RO) : SET SKIP SECTOR FLAG IN HEADER (BAD) 


FMTISUB - FORMAT 


969 006 
970 003012 
971 005014 
972 003020 
973 005024 
974 003030 
975 

976 
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105367 0000006 


004767 


000413 
004767 


000405 
004767 


000207 
000001 


177252 
100000 


177250 
040000 


177210 


140000 
0000006 
0000006 


3$: 


4$: 


~END 


DECB 


FP2ZOO- WBeOaDnm- Soe 
Cea 


Voor BW-oOyY 


SSEC 


: SEARCH THE MDBSF 
: FOUND, SET THE BAD 


UDBSF 
eet OR” Bit 


> ined 
#100000, (RO) 
6$ 


$SRUDF 
#40000, (RO) 
6$ 


SSRFES 
6$ 


tSPe ogee 
SECSZ,RO 


(RO) 


; DECREMENT THE SECTOR ADDRESS 


it BUFFER FOR A MATCH. 


if ONE 


THE APPROPRIATE HEADER. 


R 
C 
A 


ARCH THE MDBSF 
S, MDBSF yee Hs 
EAR THE MF BIT 


(BAD) 


ADD 
3. 


I$ 


SEQ 0058 
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SYMBOL TABLE 

GENHDR 0026 74RG SCBOMG: sseeee GX MSGI9= seeeee Gh SPRAPT 000256R6. SSF = wessee Gx 
TOVFER: eseee Gx SCVTDA 000132RG MSG21= teeeee GX PRNIO= seneee SSSEDT= seeeee Gx 
O:HAS= sesss* GX -SDSKIQ= seesee GX meeps escee meer 0 Lone SSSFLB= eeeeee GX 
ie = eee 2 $D IcE= eeeete te MSG41= seeeee GX READ = stan a SSSFLN= *eeee8 GX 
10.RLB= wenn GX SDYUNT = pets ah SMSG42= seeeee GX Ht, = seenee GX SSSFSZ= eeenee GX 
thes sascen i SEROCT OOOO7ERG SNeGGs= seseee Gy SSMBSF 002270RG SSULST= t#enee Gy 
lak = eeeeee GX SEROUT if G0SaRG SMSG44= teenee GY SSNAME= s#ee08 GX SSWMOD= s#eee0 GX 
nee. OO033ER” SFEBSF= erence SMSG5SB= eeeeee GX $SORT 02552R STRK = s#eene8 GX 
MSGERS= tteeee GX SHOMSK o00204RG. Hitt eetecs SSRALL 136 STSTDA eee ane 
SECS? = seeese, SUBNM = sseess Gx © SMVPAT O000GORG SSAMDF 009984RG SUBSS= seeeee GX 
SSFERC 000374R” SLBNL : cece ex SMXCYL= tteeee Rey SSRSDF 60RG SUDBSF= s#ee02 GX 
TEMP 002672R SLOGDV= tereee GX SMXLBN= steeee GX $SRSSF CoG SUNTID 000562RG 
TRKSZ = teeter GX SMBSSZ= eeeeee GX SMXSEC= eeenee GX SSRIMF 462RG SUPDMX 000414RG 
VYBSF  001136R SMDBSF= stenee GX SMXTRK= eeeeee GX SSRTRK iBénc SWIBSF 001224RG 
SALFLB= eteeee GX SMOVE 000240RG SPAT = seeeee GY SSRTSF 426RG SWISSF 001760RG 
SBUF = teeete GX SMSGWR= etter GX SPHYDV= *eeeee GX SSRTUF 002516RG SXFRSZ= seeee8 GX 
SBUFRX= seeeee GX 


- ABS. 
003032 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 908 WORDS ( 4 "em 
DYNAMIC MEMORY: 794 42 _ wo RDS ( 30 PAGES) 
ELAPSED TIME: 


00:00: 
C300, 20]FMTSUB. (300, 30]FMTSUB=[300, 10JFMTSUB 


000 
001 
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AAAI RPI RI PIR RI RROD — es 
CO ODNOVE WN HO ODNOWU EWN -OOONOUF WR 


~\— 


000000 


Some 


ITLE FMTPR 

DENT /01.00/ 

COPYRIGHT (C) 1980 | 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 

SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 

OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER 

COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 

TO ANY OTHER PERSON 49 g FOR USE ON SUCH SYSTEM AND TO ONE 

WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 

THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT 10 CHANGE WITHOUT 
; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 

EQUIPMENT CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 

ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


VERSION 01.00 


C. HESS May 
M. LEAVITT 14-0(T-80 


-MCALL DIRS, ISTATS, STATES, TRANS 
-MCALL DEVDFS$ 
DEVDFS$ 


SEQ 0060 
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33 


~ 
Las) 
—? = coed ed coud co aed cond ee co ed cmd ed cond eed cont ed 


BUFR OROPNORARORNOS 


88 SSS8SSSSSssses 


~~ 
so 


SSRIS ARAT LS SRBVSARAN=SSHLE 
S 
S 


Ooo ool 
S=S=385 
eaocaon 
os at 


wesessssesers 
M3 EN “Se MMT 
ssaae 

4+ — fet the+ th hy 


ss 

—_ 

~~ o 
Ryo srk ~ 


~ 
r 

OoOoKoeoa 

~~ NVINM 


cols 
mou 
S805 


e 


SF 
_ 
oO 
= MNS 


177777 
0000006 


0000006 
000000C 
0000006 


000000° 
0000006 


0 J 
197997 
0000006 
0000006 
0000006 
0000006 
000000C 


0000006 
000000° 


Cc 
000010" 
0000006 
000134 
0000006 


0000006 
0000006 


0000006 


0000006 


0000006 


+ 
; *#=$PARSE=PA°SE COMMAND LINE 
THIS ROUTINE WILL GET THE COMMAND LINE AND PARSE THE 


DEVICE NAME AND SWITCHES. 


: INPUTS: 


NONE. 
> OUTPUTS: 
R1 = DE 
EXIT IS 
: EXIT IS 
SPARSE: : INC 
BEQ 
V 
1$: 
; SETUP 
2$: 
3$: 
4$: 
MOV 
CALL 
BCS 
CALL 
MOV 
RE TURN 


SYNTAX: MOV 
JMP 





41 aie 
#$MSG70,R0 
SPRMPT 


#I1E.EOF&377,$10ST 


SFMTEX 

THE PARSER 
R1 
@UNTKT1,R2 


#SBUFRX.RG 
#UNIT RD 


4$ ; 
#1E.E0F&377,$10S 


SFATEX 
#OPTKT2,R2 
#SBUFRX RS 
#OPTION,R5 
. TPARS 
SYNTAX 


STSTDV 
SDVUNT,R1 


#$MSG2,R0 
SMSGWR 


m@Ge @e Ge Se Be Ge GaSe Ge Ge Ge Ge 


mun PRE-SRARE T= 


RROR. 
AND LINE TERMINATED WITH ‘’EOF’’. 


FIRST TIME THRU HERE ? 

BR IF YES 

GET ADDRESS OF MESSAGE 

PRINT ‘aaeenenaan’ <i F> 

GET PROMPT MESSAGE ADDRESS 
PROMPT USER AND GET RESPONSE 
IF COMMAND LINE ENTERED 
1. ; END OF INPUT? 

EX 


N 
GRACEFULLY 


R OPTIONS WORD 
KEYWORD TABLE ADDRESS 
ee etiE OF COMMAND LIN 


m 
be a | 
arn 
v 
> 
cs 
~ 
m 
a 


am 
_ 
wv 
53. 


mm > 

. 4 
=—mnmo 
min wo 
mv 

w” 

ws 


s“Oomrnmnr xs" 


x= Orn 


SEQ 006! 


KR 2 
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STATES 
TRAN SNUMBR ,SWITCH, SSTCSR 


; SET NEW VECTOR ADDRESS 


S 88 Be 
Ss S56 


91 3¢ 

36 s STATE TABLE FOR ‘TPARS' PARSER 
94 ' 

99 .NLIST MEB 

44 000200 ISTATS UNTST1,UNTKT1 
123 : READ DEVICE AND UNIT NUMBER 
52 900900 SRANE, SPOS SEXIT 
08 ite TRANS HUNSR, $STUNT 
05 000200 STATES : TERMINATING STATE 
07 

08 000200 ISTATS OPTST2,OPTKT2 
10 : PROCESS SWITCH OPTIONS 

12 000200 STATES OPTION 

13 000200 TRANS $EOS,SEXIT 

14 000200 R ‘Tce 

15 000200 TRANS "VEC". VEC 

16 000200 TRANS "VFL". VFL 

17 000200 TRANS = "““ERL"ERL 
18 000200 TRANS “LIL 

19 000200 TRANS ‘‘FO''.FO 

20 0002 TRANS ‘““IN'' IN 

22 : SET NEW CSR ADDRESS 

24 STATES CSR 

25 TRAN s 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 


ee ee TT Le Tr rT Se ee Lee ee eee 


00 STATES VEC 

090200 TRANS ‘= 

000200 STATES 

000200 TRANS SNUMBR, SWITCH, SSTVEC 

: SET VERIFY LIMIT (NUMBER OF TIMES TO VERIFY A SECTOR) 

40 000200 STATES VFL 
41 000200 TRANS ‘= 
43 000200 STATES 
4d 000200 TRANS  $DNUMB, SWITCH, SSTVFL 
46 : SET ERROR LIMIT 
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148 000200 STATES ER 
149 000200 RANE . 
151 900200 STATES 
138 000200 TRANS $DNUMB,SWITCH,SSTERL 
134 ; SET BAD BLOCK FILE/SKIP SECTOR FILE LIST 
156 000200 STATES LI 
157 000200 TRAN : LOG 
138 000200 TRANS  $LAMDA,SWITCH,SSTLIS 
160 000200 STATES LOG 
161 000200 TRAN L, SWITCH, $STLOG 
63 : SET FORMAT ENABLE 
000200 STATES FO 
000200 TRANS ':,FE 
000200 TRANS $SLAMDA,SWITCH,SSTFOR 
000200 STATES FE 
000200 TRANS '‘F,SWITCH,SSTFFE 
: SET BSF/SSF INITIALIZATION 
000200 STATES IN 
000200 TRANS $LAMDA,SWITCH,SSTIN 


; CHECK FOR ANOTHER OPTION 
STATES SWITCH 
TRANS $EO 


000200 S,SEXIT 

0002 TRANS ‘'/,OPTION 

000200 STATES s NULL (TERMINATING) STATE 
.ENABL LSB 


> DEVICE UNIT NUMBER 





AVHSSONSE ARUN OGBNO NPN OOo We 
So 
S 
™m 
So 
oO 


000200 016767 000000G 0000006 $STUNT: :MOV PNUMB,SDVUNT ; STORE UNIT NUMBER 
000206 026727 0000006 000007 CMP SDVUNT.# > 1S DRIVE NUMBER WITHIN RANGE ? 
93 000214 101402 BLOS sé : IF LOS, YES 
94 000216 000167 177746 JMP SYNTAX : SYNTAX ERROR 
96 ; 
97 > DETERMINE DEVICE VALIDITY 
199 : 
200 000222 016702 0000006 1$: MOV SDEVHD ,R2 : ADDRESS OF 1ST DCB IN SYSTEM 
$02 000226 02676¢ 0000006 000004 2%: CMP SDVICE .D.NAM(R2) is THIS, THE RIGHT DCB? 
03 000236 016202 000000 MOV .LNK(R2),.R2 +: POINT TO NEXT DCB 
$0 000242 009374 BNE 3 : LOOP TILL END OF LIST 
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000000G 
0000006 
000012 
000004 
000570" 
000004 
000004 
000040 
000006 
000026 
010000 
024026 
020026 


010000 


0000006 
0000006 


0000006 
0000006 


0000006 


0000006 160000 


0000006 


000004 
000570° 
0000006 


000007 


000006 


000004 


000010 
000010 


000010 


000012 


000004 


BN 
7$: BIT 
8 


8$: 
BR 
9$: MOV 


10$: MOV 
118: JMP 


3$: MOV 
4$: MOVB 


MOV 
RETURN 


-DSABL LSB 


SSTCSR: :MOV 


#$MSG4 ,RO 


hehe it T+1(R2) 
FAS A »,R 
DVUNT ,U.U 


R1,$U 
U.SCB(R1), 


i * 
— 
+> 
* 
@ 
Be 
= 


+, an 
16(R2) 
.UNITCR1) 
6(R2) ,RO 
#10000, 10( 


FAPAYNND—-Be YC 


-cov 


= VC BAW VI BWYRS 
ae: 


#10000,12(R2) 
8$ 


#SMSG7 RO 
11$ 


#$MSG72,R0 
#$MSG75.,R0 
SMESAG 


> SET NEW CSR ADDRESS 


$UCB,R2 


- PNUMB , #160000 


#SMSG2 RO 


aa .-(SP) 
#INTR, aed 
@.PNUMB 


; DEVICE NOT IN SYSTEM 
SDVUNT,D.UNIT(R25 


NITC(R1S 


$scB ; 


: TEST DEVICE CHARACTERISTICS 


iii 


-10(R23 


R2) 


jee 


; SET UNIT NUMBER RANGE 


; GET UCB ADDRESS 


; SAVE SPECIFIED UNIT NUMBER 


SAVE UCB ADDRESS 
SAVE SCB ADDRESS 


LECT UNIT 
TYPE REGISTER 
VE PRESENT 

- "NED*® SET 
80 ? 


Ss 
OTHER DEVICE TYPE CODE 


E 
RIVE ONLINE (MOL SET) ? 
EQ, NO 


DRIVE OFFLINE 
DRIVE NOT PRESENT 
DRIVE NOT AN RM80 


SEQ 0064 
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ggszs 103m 
ane 
000542 1427 
000550 0126 
000554 Benes 
000560 01676 
000566 000207 


MNMNMMMNNNoNoMenoMnononononononononiny 
WOOONNNNNNANNGS 


000600 016700 
000604 020027 
000610 103006 
284 000012 032700 
285 000616 001407 
286 000620 012700 
287 000624 000402 
288 000626 012700 
289 000652 000167 
290 000636 016702 
291 000642 116202 
292 000646 042702 
293 000652 006302 
294 000654 006502 
295 000656 011267 
296 000662 012712 
297 0 016710 
298 000672 006200 
99 000674 006200 
00 000676 016702 
301 000702 110062 
302 000706 000207 
305 
304 
$00 
06 
307 
308 000710 022767 
716 103407 


00736 000167 


N 
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Bcc 3$ 
000004 MOV (SP)¢ a 
00 0G MOV #$SG28,RO 
0 G $: JMP SMESAG 
000001 000007 3$: BICB #US.OFL,U.ST2(R2 
000004 MOV (SP) +, 084 
0000006 MOV $SCB.R 
0000006 000012 MOV .PNUMB,S.CSR(R2) 


j 


: INTERRUPTS COME HERE ON NON-EXISTANT MEMORY TRAPS 


000001 000002 i{nrTR: pls #1,2(SP) 


: SET NEW VECTOR ADDRESS 


0000006 SSTVEC: :MOV -PNUMB,RO 
001000 CMP RO, #1000 
BHIS 28 
000003 BIT ‘ RO 
0000006 1$: NOV #3MSG27 ,RO 
0000006 2$: MOV ¥SMSG2,R0 
0000006 3$: JMP SMESAG 
0000006 4$: MOV $S(B,R2 
000005 MOVB S -VCTCR2) R2 
177400 BIC #177400,R2 
ASL R 
ASL R 
0000006 MOV (R2),SINADD 
0000006 MOV #SNONSI, (R2) 
00000G MOV SINADD, (RO) 
ASR RO 
ASR RO 
0000006 MOV $SCB,R2 
000005 MOVB _RO,S.VCT(R2) 
RETURN 


: SET VERIFY COUNT 


000377 000000G wupistie > hats 

0000006 ane . PNUMH 

0000006 0000006 VB - PNUMB , SVERIF 
RETURN 

177226 1$: JMP SYNTAX 


: SET ERROR LIMIT 


SET CARRY BIT IN SAVED PS 
RETURN 


PICK UP SCB_ADDRESS 

OLD VECTOR ADDRESS 
THIS IS CHEAPER THAN ANOTHER WAY 
COMPUTE ABSOLUTE ADDRESS 


GET RM80 DRIVER ISR ADDRESS 


FORM NEW VECTOR MOD4 


; GET SCB ADDRESS 
; SET NEW VECTOR ADDRESS 


MI 
L 
IL 
NE NO 

T VERIFICATION COUNT 
SYNTAX ERROR 


WITHIN RANGE? 
NO , 
9 
AS 


LIMIT 
IF LO 
STILL? 
IF _NE 
SE 


SEQ 0065 
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19 
233 000742 022767 000377 000000G $STERL::CMP #377, .PNUMB : LIMIT WITHIN RANGE? 
321 0007 108467 BLO f : Ui 1 NO , ” 
3 é 0007 767 0000006 TST PNUMH : STILL? 
323 0007 1904 BNE : IF NE NO 

4 000760 116767 0000006 0000006 MOVB $$ .PNUMB,SSWERL =: SET ERROR LIMIT 

5 000766 000207 RETURN : 
: 000770 000167 177174 1$: JMP SYNTAX : SYNTAX ERROR 

8 ; 
3 3 ; SET LIST MODE 

31 : 
33 000774 105267 0000006 $STLOG::INCB $SWLOG : SET THE "LIST LOGICAL’ SwITCH 
338 001 105267 0000006 $STLIS::INCB $SWLST : SET THE ‘LIST’ SWITCH 

34 001004 000207 RETURN : 
3 
337 : SET ENABLE FORMAT SWITCH 
339 : 
340 001006 105267 0000006 SSTFFE::INCB  $SWFFE : SET THE "FORMAT FE’ SWITCH 
341 001012 105267 0000006 SSTFOR::INCB $SWEMT * SET THE ‘FORMAT’ SWITCH 
342 001016 000207 RETURN 
344 : 
$2 : SET BSF/SSF INITIALIZATION SWITCH 
34, ? ‘ 
348 001020 105267 0000006 SSTIN:: INCB  $SWINT : SET THE INITIALIZATION’ SWITCH 
349 001024 000207 RETURN 
351 000001 END 


a SEQ 0067 
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= , = 3 SDVUNT= seeee@ GX 
oo wee cd ed ae ae 
DV. COM= “ “VERS "KCS6= SFMTEX= seeeee GX 
DV:DIR= 000010 SP.EIP= 090) 33-VER= 91000 eats. d SINADD= teeeee Gx 
BV TSP= 662000 3 Logs 00 O04 83 "WeS= 000 6 y OWN. 776 SIOST = seeee0¢ GX 
DV-ISP= 002000 SP-LUG= 000004 S3.WES= 00004 U:OWN 177 ries sseeee 
OV.MBC= 000400 SWITCH 000156R 002 $3.8BC= 8 0 U.RED 9 SME SAGs saneee GK 
Ou Bape OnOTOS oY BMSK ad % Ue LAT T= : Usca SMSGWR= saee08 GX 
DV.MxXD= 000100 S.BMSK 177776 UC.ATT= 8 1 U.SCB GMSG2 = seae02 GX 
V:OSP= 004000 S:BMSV 177774 UC:KIL= 000004 USTs 5 raaees ofeees © 
-PSE= 010000 5. CON 300313 UC.LGH= 00000 UTC SMSGOB= seeees GX 
-REC= 000001 S-SR (BOREAS UE pur= 0000 US TeVP d $MSG4 = seeeee GX 
V.SD1= SoS er 000006 UE OUES 860 US TELK 3 S$MSG7 = s42800 GX 
By-sub> gouge STR RRM RRRGRR, ate UHTEAD Gophy? stor Susie: 
DV.TTY= 000004 S.LHD m 7 $MSG7 a2e2%44% Gx 
DV.UMD= 000200 S-PKT 000014 UNTST1 OOOO00RG 002 U.TMTI 004 SMSG/¢= seeeee Gx 
D.DSP 000012 S-PRI 000004 US.ABO= 000001 U.TSTA 900026 SHSG7= seesee G 
a rm 
SE 5.STS 000011 80004 U. TUX 300086 SPARSE O00000RG 
ce eee RA AR MMR a 
D.UCB 000002 $1.BEL= ° 0034 SRADSO= 000316 
D-UCBL 000010 $1. CTO= 006040 09 4 U.VCB = 000034 $RADSO= 000316 
-UNIT 000006 $1.CTS= 010000 0000 Ug.AT-= 000 ities eseese th 
D:vbeB= 177778 $1 DPR: 001000 50004 UB-DHT= 20000¢ SSICSR 000464RG 
D.VINI= $1.DSI= 004000 : ° rd SSTFFE 001 
S.wPur= 9090ue S14 100008 ee 
ERL  Q00100R = 002 $1.1BY= 000200 1 Ug.HFF= 010000 I sb 3 
FE 000142R 002 $1.0BY= 000100 1 UZ-HLD= 000040 SSTLIS O01000RG 
FO 000130R 002 $1.RAL= 000010 Ug.LOG= 00 TLOG_O0077% 
EOF Ssstsha™ one SIAM S858 Be Sas, BIR BR 
INTR  000570R $1.RUB= 000002 I Ug.LBS= 010000 SSTVEC 000600R6 
LI 000110R 002 $1.USI= 020000 U “Tee. 0010 SSUBXP= 000310 
L0G_=6.000122R §=s—s«s« O02 $2. ACR= 000001 US Ons 030000 SSUERL= eeeeee GX 
L.ASG 000010 S2.BRQ= 000020 01 US R02 100000 SCUFFES ceeeee Gy 
tLGTH= 000012 52.CR = 000010 10001 Ug. RO4= alltel 
t-te Speoee $6-00Hs 1onees uae * Oo ees agit SSUINT= seceee GX 
LITYPE 000005 S2-HEF= 020000 U.BUF _ 900004 US Mee Bib SSULST= teeeee GX 
EcwtT 000006 $3:nut= 010000 Use” 12778 vec i OR 902 $ISIDV O00SIERG 
M.BFVH 000011 $2.1RQ= 000200 U.CNT ae y PHA= 000 SVERIF= eeeeee GX 
“MLLGTH= 000014 $2.SRQ= 000040 U.CTYP 900030 SANY = 000320 seeeees U7 t77 
MUNK 000000 S2.VFL= 004000 U.Cwl : ep $$$STA= 090010R 002 
R-UARN 000006 $5 "une: 000002 seus af SDEVHD= assess ex S$sTmP= O000Z6R 004 
. ‘=r ' T= . PNUMB= 
mURVL 900006 3 "Bags 940000 ett 600000 SONGHB= 000314 - PNURH= —— = 
OPTION 000010R 002 $3:PCU= 100000 U.FCDE= 000040 SDVICE= teeter GX ' : 
. ABS. 17777¢ 000 


00102¢ 001 
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SYMBOL TABLE 

SSTATE 000166 O06 

SKTAB 900016 00 

$KSTR 000031 004 

ERRORS DETECTED: 0 

VIRTUAL aoe y USER D: 3819 ae Tt ( 15 PAGES) 
942 WORDS 0 PAGES) 


ty poe C 
D TIM 
F300. SOUEMTPRS, 300. 46) rmtPRS= =C1,1JEXEMC/ML C300, 10]FMTPRS 


SEQ 0068 


SEQ 0069 
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60 000140 000001 000014 DATLMT: .WORD 1.16. 
61 000144 900001 000037 -WORD 1,31. 
62 000150 000000 000143 . WORD 9.99. 
oP 000154 DPARS:: .BLKW 
o? 000116 BASYR == 78. 


6 


FOR MONTH 

FOR DAY 

FOR YEAR 

STORAGE FOR DATE CONVERSION 


; BASE YEAR = 1978 


SEQ 0070 
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68 *+ 
$8 3 *e-$RMBO-FORMAT/VERIFY RMBO DISK PACKS 
71 : THIS ROUT NE WILL INITIATE THE FORMAT AND/OR VERIFICATION 
22 > OF AN RMBO DISK PACK 
74 s INPUTS: 
? : DISK PARAMETERS SET TO ZERO 
77 s OUTPUTS: 
78 s NONE. 
50 ° 
81 000162 105767 0000006 $RM80:: TSTB  $SWINT : SEE IF SSF/BSF INITIALIZATION MODE 
82 900166 001022 BNE 1$ : JF NE, YES 
83 000170 004767 0000006 CALL  $RDSSF : READ SKIP SECTOR FILE 
84 000174 004767 000000G CALL  $RDBSF : READ BAD SECTOR FILES 
85 000200 016767 0000106 0000006 MOV $3SF +10, SREVNM : GET CURRENT REVISION NUMBER 
86 000206 005767 000310 TST 6 : HAS DATE BEEN ENTERED AT LEAST ONCE ? 
87 000212 001010 BNE 1$ : BR IF YES 
88 000214 012700 000000" MOV #MSG1RB,RO : "ENTER DATE (DD-MMM-vyY): 
89 000220 004767 0000006 CALL  $PRMPT : PROMPT THE, USER, - USER'S RESPONSE MAY BE EITHER: 
91 000224 004767 000274 CALL _—s—DATE > CONVERT USER’ , EW NTRY Y 10. } BINARY DATE 
32 000230 005267 000266 INC 8$ : INDICATE THAT DATE HAS BEEN ENTERED ONCE 
94 34 105767 0000006 1$: 1STB =—s-_: SSWLST : DISPLAY THE DEC STD 144 AND SSF FILES ? 
95 000240 001405 BEQ 2$ : IF €0, NO 
96 000242 004767 0000006 CALL § $RMBOL : DISPLAY HE 
97 000246 105767 0000006 TSTB 43=—ss SSWEMT : FORMAT THE HDA ALSO ? 
98 000252 001522 BEQ 7$ : IF EQ, 
100 + INFORM THE OPERATOR THAT DATA WILL BE DESTROYED 
102 000254 012703 0000006 2$: MOV #$MSG23,R3 ; WARNING MESSAGE ADDRESS 
103 000260 004767 0000006 SUNTID : STORE MESSAGE AND DEVICE/UNIT 
104 000264 012703 0000006 #$MSG24 ,R3 ; ADDRSS OF MESSAGE SUFFIX 
105 000270 004767 0000006 VE ; MOVE THE SUFFIX 
106 000274 012700 0001446 #SBUF+100..RO : PRINT WARNING MESSAGE 
107 000300 004767 000000G PRINT ; 
108 000304 012700 0000006 #$MSG31,RO ; GET CONFIRMATION ADDRESS 
109 000310 004767 0000006 PRMPT ; PROMPT AND GET OPERATOR'S RESPONSE 
110 000314 001501 $ : IF EQ, RESPONSE WAS ‘NO’ 
111 900316 122767 000131 0000006 #°Y, SBUFRX : SEE If RE SPONSE WAS "YES" 
112 24 001075 : IF SPONSE WA 
113 000 26 105767 0000006 SWINT ; SEE Wee REP BSE INITIALIZATION MODE 
114 000332 001013 BNE : IF Y 
115 000334 012700 0000006 MOV #SMSGRB,RO : GET UPDATE MODE MESSAGE 
116 000340 004767 0000006 CALL §§ $PRMPT > PROMPT AND GET RESPONSE 
117 000344 001451 BEO 6$ ; IF €0, NO 
118 000346 122767 000131 0000006 CMPB so # Y SBUFRX : WAS RESPONSE “‘Y'? 
119 000354 001045 BNE $ : IF NE, NO 
120 000356 105267 000000G INCB $SWMOD : SET THE MODIFY FLAG 
121 000362 012700 000000' 3$: MOV #MSG1RB,RO : "ENTER DATE (DD-MMM-YY): 
122 000366 004767 0000006 CALL  $PRMPT > PR ROMPT THE, user, : USER'S RESPONSE MAY BE EITHER: 
124 000372 004767 000126 CALL DATE * CONVERT USER'S ENTRY TO A BINARY DATE 
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13 000376 005267 000120 INC 8$ : INDICATE THAT DATE HAS BEEN ENTERED ONCE 
127 0004 1270 032° 4$: MOV WMSGORB, R0 : "HDA SERIAL NUMBER: ° 

128 0004 Oe 767 indent CALL SPR * PROMPT OPERATOR 

129 000412 01 3 b MOV RS Re : NUMBER OF BYTES ENTERED TO R64 

130 000414 01 : 00006 MOV #SBUFRX,R * INPUT BUFFER ADDRESS 

131 000420 0127 096 MOV #SSN NAME , ’R : OUTPUT BUFFER ADDRESS 

1 é 000424 00476 CALL :poec : CONVERT THE S/N TO BINARY 

133 000430 103764 BCS 4 : IF CS, BAD S/N ENTRY 

134 000432 01674 9000 MOV SSNAME,<-(SP) |: CORRECT THE SERIAL NUMBER ORDER 
135 000436 016767 00000 e 0000006 MOV SSNAME*2,S$SNAME : .., 

136 000444 01 667 000026 MOV (SP)+,$SNAME+2 : ... 

137 000450 105767 0000006 TSTB Sswinf : INITIALIZE THE BAD SECTOR FILES ? 
138 000454 001403 BEQ $ : IF £0, NO 

139 000456 004767 0000006 CALL  $RMBOI : INIT THE DEC STD 144 AND SKIP SECTOR FILES 
140 000462 000416 BR 7$ : EXIT 

142 000464 004767 0000006 S$: CALL  $RMB : GET UPDATE MODE INFORMATION 

143 000470 004767 6$: mC : READ SKIP SECTOR FILE 

144 000474 004767 0000006 CALL : READ BAD SECTOR FILES 

145 000500 004767 CALL : FORMAT THE DISK 

146 000504 004767 0000006 CALL $RMBOV > VERIFY THE DISK FORMAT 

147 000510 012700 0000006 MOV #$MSG12,R0 : GET ADDRESS OF MESSAGE 

148 000514 004767 0000006 CALL § $PRINT : PRINT "DONE !* MESSAGE 

149 000520 000207 7$: RETURN 

131 000522 000000 8$: .WORD 0 ; ONCE DATE FLAG 
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154 s+ 
139 ; **=DATE=CONVERT USER'S RESPONSE TO BINARY DATE 
157 : THIS ROUTINE WILL CONVERT THE ASCII DATE INPUTTED 
158 : INTO '$BUFRX" AS EITHER CMM/DD/YY) OR [DD-MMM-YY] AND 
159 : CONVERT IT TO BINARY AND PUT IT IN DATE PARAMETER 
160 : STORAGE AREA. 
166 s INPUTS: 
193 : "S$BUFRX' CONTAINS ASCII STRING FOR DATE 
165 > OUTPUTS: 
166 ; DPARS CONTAINS BINARY REPRESENTATION 
167 s OF DATE 
168 ; 
19 a 
171 000524 012701 000154' DATE: MOV #OPARS RI : POINT TO PARAMTER AREA 
17 000530 012702 000003 MOV #3,R2 : SET WORD COUNT 
173 000534 005021 1$: CLR CRI)¢ ; ZERO NEXT WORD 
174 0005 005302 DEC R > DONE ? 
175 900340 00137 BNE 1 : IF NE NO 
176 000542 012700 000000G MOV #SBUFRX,RO : GET BUFFER FOR USER'S RESPONSE 
177 000546 004767 0000006 2$: CALL $CODTB > GET A NUMBER 
178 000552 120227 000057 (MPR séR2a#'/ * TERMINATOR FOR DATE ? 
179 000556 001466 BEQ 1 : IF EQ YES 
180 000560 120227 000055 CMPBséR2, #*= > POSSIBLY DIFFERENT FORMAT ? 
181 000564 001404 BEQ : IF EQ YES 
182 000566 012700 0000006 MOV #$MSG2,RO > NO, SYNTAX ERROR 
185 000572 000167 0000006 JMP SMSGUR > EXIT WITH WARMING STATUS 
+4 : GET DATE FIELD IN FORMAT [DD-MMM-vY) 
187 000576 012705 000144° 3$: MOV #DATLMT#4,R5 ; POINT TO DAY LIMITS 
188 000602 004767 000256 CALL §‘TMTSTL > TEST LIMITS 
189 000606 103446 BCS $ : IF CS ERROR 
190 000610 010167 177342 MOV R1. DPARS+2 > STORE DAY 
191 000614 010003 MOV 0 : COPY BUFFER POINTER 
198 000616 012701 000056" MOV #DAT,RI : POINT TO VALID MONTH NAMES 
19$ 000622 005002 CLR R2 ; ZERO MONTH NUMBER 
194 000624 105711 4$: TSTB—ss«¢R'1) > END OF TABLE ? 
195 000626 001411 BEQ 6$ : IF €Q YES, GOOD MONTH 
196 000630 122021 CMPB  —s-« (RO) +, (R1)* > NO, CHECK NEXT CHARACTER 
197 900652 001774 BEQ 4$ : AND LOOP IF GOOD MATCH 
198 105721 5$: TSTB Ss CRD > END OF MONTH STRING ? 
199 000636 001376 BNE 5$ : IF NE NO, L 
200 000640 010300 MOV R3.RO > YES, RESET BUFFER POINTER 
01 000642 005202 INC R : UPDATE MONTH INDEX 
0@ 4 105711 TSTB—s-s« (R11) > END OF TABLE ? 
0 000646 001 366 BNE 4$ : JF NE NO, LOOP 
04 56 000425 BR 9% : ZERO 1S END OF MONTH LIST 
05 000652 005202 6$: INC Re : INCREMENT MONTH INDEX 
06 000654 010267 177274 MOV R2,0P > SAVE IT 
07 000660 112002 move (RO)+ : GET NEXT CHARACTER 
208 2 120227 000055 CMPB Re. * LEGAL TERMINATOR ? 
209 001401 BEQ 7 > TF €Q YES 
210 000670 000415 BR 9$ : NO, IT'S A SYNTAX ERROR 
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TO TWO WORD LIMIT ENTRY 
- LOW LIMIT OF VALUE 
- HIGH LIMIT OF VALUE 


NS VALUE TO BE TESTED 


UPDATED TO NEXT LIMIT ENTRY 


UNCHANGED 
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LOW>X OR X>HIGH 
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GOOD VALUE, LOW<=X<-HIGH 


BAD VALUE 


LOWER THAN LOW LIMIT ? 
HER THAN HIGH LIMIT ? 
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ERROR FLAG 
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ATW he — 


SOREL ~ 
ee OO 
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DO000555 
SO5055050 


»END 
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SYMBOL TABLE 


BASYR = oon 18 G SG2R8 p08 eR SMSGi2= eteeee GX SROSSF= seeeee GX SSNAME= seeeee GX 
CR = 1 MTSTL 1064R SMSG2 = teeee2 GX SREVNM= eeenee GX $SSF = seeeee GX 
DAT 000056R $BUF = eeeene GX en3e 5= eeeeer GX SRM 000162RG SSWEKMT= seeene Gy 
DATE 000524R SBUFRX= teeene GX SG24= eeeeee GY SRMBOF= seeeee GX SSWINT= seeee GX 
DATLMT 000140R SCDTB = seeeee GX SMSGSi= seeeee GX SRMBOI= eeeeee GX SSWLST= seen GX 
DPARS 000154RG SMOVE = *2ee02 GX SPRINI= *eeeee GX SRMBOL= teeeee GK SSWMOD= eeeeee GX 
LF = SMSGRB= eeenee GX SPRMPT= eeeeee GX SRMBOM= seeee8 Gx SUNTID= seeeee Gx 
MSG1RB O000000R SMSGES = sereee GX RDBSF= seeeee GX SRMBOV= seeeee GX oDDZ2CT= seeeee Gx 


- ABS. 000000 000 
0011 001 
ERRORS DETECTED: 0 


peed gt MEMORY USED: 456 WORDS  ( 2 PAGES) 
tye H Bs ete 794 he WORDS ( 30 PAGES) 


00: 
f 00 SOUEMTREO, C300, 30]FMTRBO= C300, 10JFMTR80 


SEQ 00/7 
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58 3+ 

§9 ; tt. Rg TF-FORMAT A SINGLE TRACK 

60 : ##e§R SF FORMAT BSF, SSF AND ALTERNATE DEC144 CYLINDERS 

61 : ##=$RMBOF=FORMAT ALL CYLINDERS OR FE CYLINDERS 

6 ; 

64 : THIS ROUTINE WILL FORMAT AN RMBO DISK PACK. FULL TRACKS 

65 > (32. SECTORS) OF HEADERS ARE WRITTEN UNTIL THE MAXIMUM 

66 ; DISK ADDRESS 1S REACHED. 

a : INPUTS: 

69 ; DISK PARAMETERS SET TO ZERO 

70 : MDBSF, UDBSF, & SSF READ, VALIDATED, AND IN MEMORY 

71 : SCYL,$TRK,SSEC PRESET FOR 'S$SRBOTF’ ENTRY 

te ; FORMAT FE CYLINDERS ONLY IF ‘SSWFFE=1° 

74 : OUTPUTS: 

75 ; NONE. 

6 - 

78 : FORMAT BSF(558.,13.), SSF(559.,0) AND ALTERNATE DEC144(559..1) TRACKS 
80 000266 012767 001056 000000G S$RBOSF::MOV 4558. $CYL s STARTING CYLINDER 

81 000274 012767 000015 0060006 MOV #13, $TRK ae 

82 000302 004767 00021 CALL EMTDSK : FORMAT THE DEC STD 144 TRACK 

83 000306 012767 001057 0000006 MOV #559. ,$CYL * STARTING CYLINDER 

84 000314 005067 000000G CLR $TRK , TRACK 

85 000320 004767 000174 CALL - FMTDSK : FORMAT THE SSF TRACK 

86 000324 005267 0000006 3 INC STRK * FORMAT THE ALTERNATE DEC144 TRACK 
88 : FORMAT A SINGLE TRACK 

90 000330 004767 0000006 SRBOTF::CALL § $SMVPAT : LOAD THE DATA PATTERN 

91 000334 000471 | BR FMTDSK > FORMAT THE TRACK $CYL,$TRK 

93 

2% : FORMAT ALL CYLINDERS (0,0 TO 560.,13.) OR BSF/SSF/FE CYLINDERS (558.,13.- 560.,13.) 
96 000335 005001 SRMBOF : : CLR R1 : SET NULL CARRIAGE CONTROL 

97 000340 012700 0000006 MOV #$MSG6,RO > TELL OPERATOR 

98 000344 004767 0000006 CALL $PRNTO : "START FORMATTING’ 

99 000350 005001 CLR R : SET NULL CARRIAGE CONTROL 
100 000352 105767 0000006 TSTB ss SSWFFE : FORMAT FE CYLINDERS ONLY ? 
101 000356 001011 BNE 1$ : BR IF YES 
102 000360 012700 0000006 MOV #SMSG6A,RO : TELL OPERATOR WHICH CYLINDERS 
103 000364 004767 0000006 CALL  $PRNTO : * <ALL CYLINDERS- ° 
104 000370 005067 0000006 CLR $CYL > START CYLINDER=0 
105 000374 005067 0000006 CLR $TRK : START TRACK=0 
106 000400 000412 BR 2$ > FORMAT THE TRACKS 
108 000402 012700 0000006 1$: MOV #SMSG6B,RO : TELL OPERATOR WHICH CYLINDERS 
109 000406 004767 0000006 CALL  $PRNT : * FE CYLINDERS- ° 

110 000412 012767 001056 0000006 MOV #558. ,$CYL : START CYLINDER=558. (BSF/SSF/FE CYLINDERS) 
111 090420 012767 000015 0000006 ‘MOV #13. $TRK > START TRACK=13. 

112 000426 004767 0000006 2$: CALL $MVPAT : LOAD THE DATA PATTERN 

113 000432 004767 6 3$: CALL FMTDSK : FORMAT TH 

114 000636 004767 0000006 CALL $TSTMX * UPDATE DISK ADDRESSES 


Le) 
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71§ 000442 103001 BCC 4$ ; IF CS, NOT FINSIHED, 

116 000444 000507 RE TURN : Bert FORMAT widieen 

11B 000446 022767 001057 0000006 4s: CMP #559. ,$CYL : WAS SSF JUST WRITTEN ? 

119 000454 1366 BNE 35 : BR I 

120 000456 022767 000002 0000C0G CMP #2, STRK : WERE BSF/SSF TRACKS JUST WRITTEN ? 
121 000464 1362 BNE ; : BR IF NO, ELS 

1 é 66 016746 000 006 MOV CVL .= (SP) : SAVE CURRENT CYLINDER ADDRESS 
123 00047¢ 016746 6000006 MOV STRK.=(SP) : SAVE CURRENT TRACX ADDRESS 
124 000676 767 0000006 CALL $wTSSF : RE“WRITE THE SSF 

125 000502 004767 0000006 CALL $WTBSF ; RE*WRITE ALL THE DEC144 TRACKS 
126 900506 012667 00 0G MOV (SP) +. $TRE ® RESTORE TRACK ADDRESS 

1 12 012567 006 MOV (SP)+, CYL : RESTORE CYLINDER ADDRESS 

128 000516 000745 BR : WRITE NEXT TRACK 

130 : ACTUAL FORMAT ROUTINE 

132 000520 012703 0000006 FMTDSK: MOV #SPHYDV,R3 : "FORMAT’ DEVICE PARAMETERS 
138 000524 004767 0000006 CALL  $UPDMX : UPDATE THE MAX VA 

134 000530 005067 0000006 CLR $SEC : START AT SECTOR ZERO 

135 000534 012700 0000006 MOV #SBUF .RO ; RELOAD THE BUFFER ADDRESS — 
137 : CREATE THE HEADER PATTERN 

139 000540 004767 0000006 1$: CALL § GENHDR ; GENERATE HEADER PATTERN 

140 000544 005267 0000006 INC SEC : UPDATE SECTOR NUMBER 

141 000550 026767 0000006 0000006 CMP SSEC, SMXSEC > ALL SECTORS DONE? 

142 000556 001370 BNE : NO 

143 000560 005067 0000006 CLR $SEC : RESET SECTOR NUMBER 

145 : NOW WRITE THE HEADER AND DATA ONTO THE DISK. 

147 000564 016767 0000006 0000006 2$: MOV TRKSZ,$XFRSZ  ; LOAD BYTE COUNT FOR ONE TRACK 
148 000572 004767 0000006 CALL $CVTDA : CONVERT DISK ADDRESS TO LBN 
149 000576 612705 0000006 MOV #SBUF RS : SET BUFFER ADDRESS 

150 000602 004767 0000006 3$: CALL $DSKWH : WRITE HEADER/DATA FOR THIS TRACK 
151 000606 005767 0000006 4g: ss TST SROBU! : ANY DISK ERRORS? 

152 000612 100401 / BMI f : IF MI, YES 

133 000614 000207 RETURN > OTHERWISE, RETURN 

155 s HANDLE THE ERROR 

189 000616 032767 004000 0000146 5$: BIT #4000, $RGBUF+¢14 ; WRITE LOCK ERROR? 

158 000624 00140 BEO $ : IF EQ NO 

159 000626 000167 0000006 JMP WLKER > INFORM THE USER 

18 ; SEND ERROR MESSAGE 

163 000632 004767 000276 6$: CALL FLR : SAVE FAILING DATA 

164 000636 012700 000000° MOV oor .RO : "ORIVE ERROR DURING FORMAT’ 
165 000642 012701 000060 MOV 60,R1 © CARRIAGE CONTROL CHARACTER 
166 960646 004767 000000G CALL PRNTO ; SEND MESSAGE 

167 000652 004767 000064 CALL ; SEND DISK ADDRESSES 

168 000656 105367 0000006 DECB : DECREMENT THE ERROR LIMIT 

195 000664 sat: 0000006 BOY #$MSG45,R0 ERROR enor bet epeD omega 
171 000670 012701 000060 MOV #60,R1 CARRIAGE CONTROL CHARACTER 
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CALL $PRNT ; SEND MESSAGE 
MOV #MSG53R,RO : "FORMAT TERMINATING’ 
CALL PRINT : PRINT THE MESSAGE 
JMP FMTEX : EXIT THE FORMATTER 
ERROR IS A 'SKI', DO A RECAL 
MOV aMSGSIR, RO ; ‘FORMAT CONTINUING’ 
CALL PRINT SEND MESSAGE 
git Hi 00,$RGBUF +42: ; SEE if ERROR WAS A SEEK INCOMPLETE 
CALL Stonst NTRY POINT FOR RETRY WITH RECA 
BR $ : TRY AGAIN —_ 


-+ 
; t#-$MGPRE=PREPARE AND SEND DISK ADDRESSES TO OPERATOR 


: INPUTS 


OUTPUTS: 





SFLCYL,SFLTRK,SFLSEC LOADED 


ERROR MESSAGE 








SE: oe esc. ir s ADDRESS OF MESSAGE 
MOV ‘CET R MCS1 AND 
MOV + ADDRESS * wae 
CALL sRMSCI = 
MOV :G C $2. AND 
MOV {ADDRESS OF OF wae 
CALL 
MOV GET ROEM AD ac 
CALL AOMERI = MxMKX"’ 
MOV . R 
MOV 
CALL 
MOV 
MOV 
CALL :RMDA 
MOV SAPORESS "OF MESSAGE 
CALL = CRLF 





sPRINT ERROR POSITION, CYLINDER, TRACK AND SECTOR IN DECIMAL 
MOV 


SEL crt AF 








;GET FAILING CYLINDER AND 

MO C1S°R3 ADDRESS OF MESSAGE 

SEROUI “CYLINDER = XXX." 
MOV © SFLTRK,R1 SGET-FAILING TRACK AND 
MOV 6,R3 ADDRESS OF MESSAGE 
CALL RO "TRACK = XX, 
MOV RI GET FAILING SECTOR AND 
MOV 7,R3 [ADDRESS OF MESSAGE 
CALL T “SECTOR = XX. 
MOV =: #SCR,RO :GEt ADDRESS OF MESSAGE 
CALL = SPRINT R=LF 





SEQ 0080 
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239 001132 000207 RETURN 
231 3+ 

$38 : te-$FLRGS-ROUTINE TO SAVE FAILING DISK ADDRESSES AND REGISTERS 
234 > INPUTS: 

235 ; SCYL, STRK SET TO CURRENT CYLINDER AND TRACK 

$39 : SRGBUF CONTAINS IMAGE OF LATEST H/W REGS (SET BY DRIVER) 
235 ; OUTPUTS: 

239 ; SERCS1 = CONTROL STATUS REG 1 

240 : SERCS? - CONTROL STATUS REG 

41 ; SERER1 - ERROR REG 1 

242 ; SERER2 = ERROR REG 2 
243 : SERDA = TRK/SECTOR REG 

2h : SFLCYL = FAILING CYLINDER 
245 : SFLTRK = FAILING TRACK 
ge6 : SFLSEC = FAILING SECTOR 
248 ‘ 
249 001134 016705 0000066 SFLRGS:: SRGBUF +6,R5 s RECOVER FAILING SECTOR ADDRESS 
250 001140 042705 177740 B Pee yGO RS : ISOLATE SECTOR NO. 
$2) $0146 Of 2767 000037 0060006 bat SFLSEC S MUST HAVE BEEN LAST SECTOR 

ee Ps L 

253 001154 000403 2$ ; 
254 001156 005305 1$: RS * BACKUP ONE 
255 001160 010567 0000006 RS ,SFLSEC ; SET SECTOR NUMBER 
256 001164 016767 000000G 0000006 2$: SCYL SFLCYL : ' CYLINDER 
297 001172 016767 0000006 0000006 STRK,SFLTRK > ** TRACK 
259 : SAVE THE RMB8O REGISTERS 
261 001200 012705 0000006 #SRGBUF RS : REGISTER BUFFER 
262 001204 011567 177042 (k5) SERCS1 > RMCS1 
263 001210 016567 000010 177036 10(R5),SERCS2 : RMCS2 
264 001216 016567 000014 177032 14(R5) , SERER! : RMERI 
265 001224 016567 000042 177026 42(R5),SERER2 ; RMERZ 
266 001232 016567 900006 177022 V 6(RS) , SERDA > RMDA 
267 001240 005067 0000006 CLR SRGBUF > CLEAR ERROR INDICATOR 
268 001244 000207 RETURN ; 


26 
270 000001 ~ END 
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SYMBOL TABLE 


FMTDSK 000520R msGeue 000222R SEROCT= 
GENHDR= settee GX KSZ = teewee GX SEROUT= 
MSGSOR pop ROOR SBUF = teenee GX $F LBUF 

MSG51R 000032R $CR = eeeewe GX SFLCYL= 
MSG53R 000054R SCVIDA= teeee8 GX SFLRGS 

MSG6 00077R = eeneee GX SFLSEC= 
MSG62R 000106R SDSKWH= *eeene GX SFLTRK= 
MSG65R 000115R SERCS1 000252R SFMTEX= 
M 000133R SERCS2 000254R SHOMSK= 
MSG65R 0001535R 000 ger ances 

MSG66R 000141 SERER1 ih 6R $MSG15= 
MSG67R 000175R SERER2 000260R $MSG16= 


. ABS. 000000 000 
001246 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 517 we ( 3 > 
tye ae 7942 WORDS ( 30 PAGES) 


F300; SOJEMTREF , C300, 30]FMTRBF = C300, 10JFMTREF 


PAGE 2-4 


eerece GY 
eenees 


000264R 


geeere 

001134RG 
eeeere GY 
teeeee GX 
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SEQ 0082 


FMTR8V = VERIFY RMBO DISKS MACRO M1113 O7-yUL-82 15:01 PAGE 1 


1 .TITLE FMTRBV = VERIFY RMBO DISKS 

¢ » IDENT wii 

4 : 

5 : COPYRIGHT (C) 1980.1 

é ; DIGITAL EQUIPMENT CORPORATION. MAYNARD, MASS. 

8 : 

9 > THIS SOFTWARE 1S FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
10 : SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
11 : OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER 
12 : COPIES THERECE , MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
1 : TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE 
14 s WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
15 : THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 
17 : TH HE INE ORMAT LON IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
18 : NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
19 : EQUIPMENT CORPORATION. 
21 > DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABIL ity OF 
22 ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 
24 : 
: VERSION 02.00 
27 > C. HESS 22~AUG-80 
28 > M. LEAVITT -JUL=82 
30 : 
31 .NLIST BEX 
33 0 126 105 122 MSG2V: .ASCIZ /VERIFY TERMINATING/ 
34 000023 116 117 116 MSG3V: .ASCIZ /NON DATA ERROR DURING VERIFY/ 
35 0 126 105 122 MSG6V: .ASCIZ /VERIFY C 
36 000102 710 105 101 MSG5V “ASCIZ @HEADER/DATA ERROR DURING VERIF Ya 
38 S 
39 ; 
40 : WORKING LOCATIONS 
4 oe 
43 990142 000000 TRKER: WORD : TRACK ERROR COUNT 
44 000144 SECTBL: .BLKB 32. > SECTOR ERROR TABLE 
45 000204 000000 LASTER: .WORD : LAST SECTOR IN ERROR DURING CURRENT VERIFICATION 

900206 000000 MFRSEC: .WORD 0 : NUMBER OF SECTORS ACTUALLY VERIFIED 
48 000210 000000 ENDSEC: .WORD 0 > ENDING SECTOR ADDRESS 
49 000212 000900 BEGSEC: .WORD 0 : STARTING SECTOR ADDRESS 
000000 VFYCNT: .WORD 0 > VERIFICATION PASSES 


SEQ 0085 
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$3 : 

22 : te-SRMBOV-VERIFICATION ROUTINE FOR RMBO DISK PACKS 

56 + TRACK COMPLETE <= 1 

57 : REPEAT PROCESS UNTIL PHYS! AL DISK ADDRESS .£Q. (561,0,0) (S$ISTMx) 
58 ; IF TRACK COMPLETE oN 

59 : THEN START SECTOR’ < <= 0 

60 ; END SECTOR <= $MX MXSEC 

61 : TRACK ERROR COUNT ('TRKER') <= 0 

6¢ ; CLEAR SECTOR ERROR TABLE 

6 : GENERATE TRACK BUFFER 

64 : WORD COUNT <= «CEND SECTOR) =(STAR t SECTOR) +1) #258 

65 : VERIFICATION PASS COUNT (‘VFYCNT') <= Ra 

6 : REPEAT WRITE CHECK UNTIL ('VFYCNT’ .€0 ,OR. SECTORS TRANSFERED .€0. 0) 
68 ; THEN CALL S$CKERR 

69 : IF ERROR IS A NON DATA ERROR 

70 : THEN RETRY ERROR 

71 : "VFYCNT’ = "VFYCNT’ = 1 

72 : ENDREPEAT 

73 : IF be NE. 0 

74 : THEN CALL 'VFYSEC' 

75 : REGENERATE THE TRACK BUFFER (GENHDR) 

76 ; RE=FORMAT TRACK FROM SECTOR 0 TO SECTOR 31 

77 : IF ENDSEC .NE. 

78 : THEN START SECTOR <= LAST ERROR SECTOR + 1 

79 : END SECTO 

80 ; ELSE PHYSICAL ADDRESS = PHYSICAL ADDRESS * 32 SECTORS 
81 : ENDREPEAT 

82 : REWRITE BSF & SSF 

83 : EOJ 

84 ; 

86 e 

87 000216 012700 0000006 SRMBOV: :MOV #$MSG11,RO : GET VERIFICATION STARTING MESSAGS 
88 000222 004767 0000006 CALL RINT : PRINT THE MESSA 

89 000226 012703 0000006 MOV SSPHYDV.R3S ; PHYSICAL DEVICE GEOMETRY POINTER 
90 000232 004767 000000G CALL SUPDMX : UPDATE THE LIMITS 

4 000236 004767 0G0000G CALL ; ISSUE A RECAL 

93 000242 105767 0000006 TSTB SsurFe : VERIFY FE CYLINDERS ONLY ? 

94 000246 001005 BNE 1 ; F YES 

95 000250 005067 0000006 CLR SCYL : STARTING CYLINDER=-0 

96 salt Se 005067 000000G CLR TRK : STARTING TRACK=0 

97 60 600406 BR $ 

98 000262 012767 001056 000000G 1$: MOV #558. ,$CYL : STARTING CYLINDER=558. 
133 000270 012767 000015 000000G MOV #13. $TRK > STARTING TRACK=13. 
101 000276 005067 177710 2$: CLR BEGSEC : START WITH SECTOR 0 
102 000302 005067 177634 CLR TRKER : CLEAR THE TRACK ERROR COUNT 

103 000306 005067 177672 CLR LASTER : CLEAR LAST ERRORRED SECTOR 
104 000312 016767 0000006 177670 MOV MXSEC,ENOSEC ; LOAD THE ENDING SECTOR ADDRESS 
105 900520 005367 177664 DEC NDSEC : CORRECT THE VALUE 

6 000324 004767 0000006 CALL MVPAT s LCAD THE DATA PATTERN 

108 000330 026727 0000006 001056 3$: CMP $cv_ #558. : JS THIS THE BSF CYLINDER ADDRESS ? 
109 000336 001016 BNE 4$ : BR IF NO 


SEQ 0085 
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FMTRBV = VERIFY RMBO DISKS MACRO M1113 O7-yUL-82 15:01 PAGE 2-2 SEQ 0086 
167 000622 016700 177362 13$: MOV ENDSEC,RO : CHECK THE ENDING SECTOR 
168 0006 6 0 ° 09 INC R : CORRECT IT 
169 000630 020 0000006 CMP RO, SMXSEC : SEE IF FINSIHED 
170 000634 001421 BEO 14§ : IF €0. YES 
171 000636 016700 177342 MOV LASTER. RO : GET THE LAST ERROR SECTOR ADDRESS 
178 000642 905200 INC 0 : CORPECT VALUE 
173 000644 92006 0000006 CMP RO, SMXSEC : SEE IF AT MAX SECTOR 
174 000650 0 413 BEQ 14§ : IF €Q, YES 
175 000652 01676 177326 177332 MOV LASTER,BEGSEC : RELOAD THE STARTING SECTOR 
176 000660 005267 7326 INC BEGSEC : START WITH THE FIRST GOOD SECTOR 
177 16767 0900006 177316 MOV MXSEC,ENDSEC : RELOAD THE ENDING SECTOR 
178 itt $e 005367 17731 DEC ENDSEC ; CORRECT THE VALUE 
179 000676 000536 BR $ : CONTINUE 
000700 004767 0000006 14$: CALL $TSTMX : INCREMENT THE PHYSICAL ADDRESS 
704 10340 BCS 15$ IF CS, FINISHED 
000706 000167 177364 JMP 2$ : TEST NEXT TRACK 
712 004767 0000006 15$: CALL $wWTSSF s RE“WRITE THE SSF 
000716 004767 0000006 CALL  $WTBSF : RE“WRITE ALL THE DEC STD 144 TRACKS 
722 000207 RETURN 


#e~VFYSEC@VERIFY THE SECTOR(S) IN ERROR 


THIS ROUTINE WILL RE-READ THE SECTORS WHICH GAVE ERRORS DURING THE VERIFY 
PASS ON THE CURRENT TRACK. ANY SECTOR FAILING DURING THE RE-READ PASS 
WILL BE CONSIDERED DEFECTIVE. 


ieee tee eee Le ee 
SLFRRANLESELERRASLS 





: REPEAT PROCESS UNTIL TRACK ERROR COUNT ('TRKER®) .£0. 0 
: FIND NEXT SECTOR IN SECTOR ERROR TABLE (*SECTBL') 
: REPEAT WRITE CHECK FOR SECTOR ENTRY IN "SECTBL* 
199 ; UNTIL (°SECTBL' (SECTOR) .LT. 0) .OR. (HEADER FIELD OR DATA FIELD ERROR FOR SECTOR) 
00 ; IF "SECTBL'(SECTOR) .GE. 0 
01 : THEN If NO SKIP SECTOR ON TRACK .AND. ‘SHDRFG® = 0 
202 : THEN PUT SECTOR IN SSF 
203 : ELSE IF SECTOR IS NOT IN THE FE CYLINDERS 
204 ; THEN PUT SECTOR IN FEBSF 
205 ; ELSE PUT SECTOR IN UDBSF 
206 ; LAST ERROR SECTOR ON TRACK ‘LASTER’ <= CURRENT ERROR SECTOR 
207 : TRKER = TRKER - 1 
208 > ENDREPEAT 
209 : 
210 > INPUTS: 
211 : SECTBL = CONTAINS ADDRESSES OF SECTORS IN ERROR 
212 ; SVL STARK SSEC CONTAINS ADDRESS OF CURRENT TRACK 
213 : TRKER .NE. 
214 . 
215 : OUTPUTS: 
216 s s 
217 : £ HE MDBSF,,UDBSF.& SSF'S 
218 : ‘ THE ADDRESS OF THE LAST SECTOR IN ERROR ON 
$36 ; 
$$) 7° 
$5 000724 012700 177777 VFYSEC: MOV #-1,R0 : USE RO AS THE INDEX INTO “SECTBL" 
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224 000730 00520 1$: INC RO ; INCREMENT THE INDEX 
Se te om fe Hmm: gen 
7 090749 910046 2$: MOV RO,=(SP) : Save fHE INDEX 
228 00074 1 06 0000006 MOV RO, SSE : RELOAD THE SECTOR ADDRESS 
229 000746 016767 0006 0000006 Ov scit uF : SETUP A SECTOR IMAGE 
230 000754 052767 1 99 0000006 BIS #150600, $BUF : SET THE MF, UF, AND FMT16 BITS 
23) 990762 116767 6 0000 MOVB $TRK,$BUF+ : LOAD THE TRACK ADDRESS 
232 000770 116767 0000006 000002G MOVB $SEC BUF : LOAD THE SECTOR ADDRESS 
235 000776 012703 0060006 3$: MOV & BUFR : BUFFER ADDRESS 
2 901002 012767 001004 0000006 MOV #516. , SXFRSZ : SECTOR = INCLUDING HEADER BYTE COUNT 
239 001010 004767 0000006 CALL ScvTDA : CONVERT THE PHYSICAL ADDRESS TO LBN 
236 001014 004767 0009006 CALL DSKwWC : WRITE CHECK THE SECTOR 
237 001020 005767 0000006 TST SRGBUF : ANY ERRORS ? 
238 001024 100007 BPL 4$ : IF PL, NO 
239 0010 : 004767 000044 CALL KERR : PROCESS THE ERROR 
240 001032 103761 BCS t > IF CS, NON-DATA ERROR - RETRY 
241 001034 004767 0000006 CALL DSTRB : PUT THE SECTOR INTO THE PROPER BSF 
342 001040 012600 MOV (SP) *,RO ; RESTORE THE SECTOR TABLE INDEX 
243 001042 000406 BR 5 : 
244 001044 O12 00 4$: MOV (SP) +, RO : RESTORE THE SECTOR TABLE POINTER 
245 001046 105360 000144' DECB SECTBL (RO) ; COUNT THE SUCESSFUL RE-READ 
246 001052 100332 BPL : IF PL CONTINUE 
247 G01054 105060 000144" CLRB =s-_- SEC TBL CRO) ; cL AS SECTOR ENTRY, ERROR WAS NOT 
249 001060 016767 0000006 177116 S$: MOV SSEC, LASTER > AS CURRENT ERROR IS LAST ERROR ON THIS TRACK 
250 001066 005367 177050 DEC TRKER ; DE NT THE ERROR COUNTER 
251 001072 001316 BNE 1$ : IF NOT FINISHED 
332 001074 000207 RETURN ; 
254 se 
$22 3 **=CKERR-VERIFY MODULE DEVICE ERROR ANALYSIS ROUTINE 
$28 : THIS ROUTINE WILL ANALYZE THE DISK ERROR AND REPORT THE ERROR AS REQUIRED. 
259 : SKI 
260 : THEN REPORT & RECALIBRATE 
261 : ELSE REPORT ERROR 
262 ; IF NOT DATA ERROR 
263 : THEN RETRY UNTIL SUCESSFUL OR RETRY LIMIT EXCEEDED 
266 ; ELSE DETERMINE SECTOR IN ERROR 
265 : If TRACK ERROR COUNT (‘TRKER*) .£€0 0 
266 : THEN LAST ERROR SECTOR ("LASTER") <= ERROR SECTOR 
67 : If ER S HEADER ERROR 
68 : THEN ERROR TYPE ( RFG*) <= 1 
269 ; ELSE ‘HDRFG' <= 0 
270 : If VERIFY COUNT (*VFYCNT") .NE. 0 
271 : THEN IF SECTOR IN ERROR NOT LISTED IN BSF, SSF, OR FEBSF (SSRALL) 
37¢ : THEN LOAD SECTOR RETRY COUNT IN SECTOR ERROR TABLE ‘*SECTBL") 
a = * 
274 : TRANSFERRED SECTOR COUNT ("XFRSEC') = ((ERROR SECTOR)-(START SECTOR) )~1 
75 ° If "MERSEC’ .NE. O 
76 ; THEN END SECTOR <= (ERROR SECTOR-1) 
g77 : WORD COUNT <= ((END SECTOR)=(STAR: SECTOR #1)+1)#258 
279 : JNPUTS: 


SRGBUF ~ CONTAINS THE RMBO REGISTER CONTENTS 


FMTRBV = VERIFY RMBO DISKS MACRO M1113 O7-,UL-82 15:01 PAGE 2-4 SEQ 0088 


VFYCNT = CONTROLS UPDATING ‘SECTAL‘ 
RETURNS: 


Mong 
fe Te +) 
AN — 





2 : 
RC ; CS = JF THE ERROR WAS A NON DATA ERROR 
$86 : OUTPUTS: 
287 : "SECTBL' = UPDATED IF ERROR IS A DATA ERROR AND ‘VFYCNT’ .NE. 0 
289 : NOTE: 
290 ; THIS ROUTINE WILL RETURN TO "SFMTEX® IF THE DRIVE EXCEEDS THE 
91 : ERROR LIMIT. 
3 ° 
294 
295 001076 004767 0000006 CKERR: CALL $FLRGS : SAVE THE REGISTERS 
296 001102 016746 0000066 MOV SRGBUF+6,-(SP) + GET THE SECTOR ADDRESS 
297 001106 005316 DEC (SP) * BACK UP TO FAILING SECTOR 
298 001110 042716 177740 BIC #°C37, (SP) : JUST IN CASE FAILING SECTOR WAS 31. 
299 001114 011667 177064 MOV (SP) LASTER : GET LAST ERRORED SECTOR 
300 001120 016746 0000006 MOV SROBUF -(SP) + GET RMCS1 
301 0011 ¢4 042716 157777 BIC #*°C20000,(SP) : LEAVE “MCP 
302 001130 016746 0106 MOV srgBur +10 -(SP) : GET RMCS 
303 001134 042716 040000 BIC #40000, (SP) > CLEAR "WCE® 
304 001140 156666 000001 000002 B1SB 1<SP) 2 (SP) : ‘OR’ THE ERROR BITS FROM RMCS2 
305 001146 016716 0000426 MOV SRG uid (SP) +: GET RMER2 
306 001152 042716 100000 BIC #100000,(SP)  : CLEAR °BSE’ 
307 001156 052616 BIS (SP)+, (SP) : "OR’ WITH "MCPE® & RMCS2 ERROR BITS 
308 001160 005726 TST (SP) > SEE IF ANY ERROR BITS SET 
309 001162 001016 BNE 1$ : IF NE, YES = NON DATA ERROR 
310 001164 032767 110400 0000146 BIT #110400, $RGBUF +14 : TEST "DCKIDTE!HCRC’ 
311 001172 001056 BNE & ; If NE, MUST BE A DATA OR HEADER ERROR 
312 001174 032767 040000 0000106 BIT #40000, $RGBUF +10 ; TEST "WCE® 
313 001202 001052 BNE 4$ : IF NE, MUST BE DATA ERROR 
314 001204 016746 0000146 MOV SRGBUF+14.-(SP>) : COPY RMERI 
315 001210 042716 110400 BIC #110400,(5P) =: CLEAR THE DATA/HEADER ERROR BITS 
316 001214 005726 1ST (SP) : SEE IF ANY OTHER ERROR BITS ARE SET 
317 001216 001504 BEO : IF €Q, NO MUST BE "BSE* ERROR, ELSE 
318 > REPORT NON DATA ERROR 
320 : SEND NON DATA ERROR MESSAGE 
$2¢ 001220 012700 000023° 1$: MOV ansG3v.RO ; "NON DATA ERROR DURING VERIFY’ 
323 001224 012701 000060 MOV #60,R1 > CARRIAGE CONTROL CHARACTER 
336 901 004767 0000006 CALL  $PRNTO : SEND MESSA 
S 001 004767 06000006 CALL R : TYPE THE DEVICE REGISTERS 
26 001240 105367 0000006 DECB > SEE IF ERROR LIMIT EXCEEDED 
27 001244 004014 BNE ; IF NE, NO 
28 001246 O12 00 6 MOV $645, RO : "ERROR LIMIT EXCEEDED’ 
¢9 001252 012701 0 MOV > CARRIAGE CONTROL CHARACTER 
001256 004767 6 CALL ; SEND MESSAGE 
31 001262 012700 00° MOV #MSG2V,RO : "VERIFY TERMINATING’ 
é 001 66 00476 006 CALL > PRINT THE MESSAGE 
33 001 000167 jMP ; ABORT THE FORMATTER 
34 001 26 0127 0° 2$: MOV #MSG4V,RO > "VERIFY CONTINUING 
§ 001 00476 6 CALL SPRINT ; SEND MESSAGE = 
36 001306 032767 040000 0000426 BIT #40000, SRGBUF +42 > SEE IF “SKI 
37 001314 001402 BEO 35 : IF €Q,°NO 


38 on 
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; PROCES 
4$: 


5$: 


END 
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HDRFG 
VFYCNT 


9$ 
(SP) ,$SEC 
SSRALL 


TRKER 


(SP) RO 
SRETRY. SECTBL (RO 
#MSGSV,R 


GS 
GSEC 


we Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


(SP) ,.XFRSEC 
EC, XFRSEC 


(SP) ,ENDSEC 
NOSE 


HE DATA ERROR AND EXIT 
£200, SRGBUF +14 


; CALCULATE T 


NUMBER BY 
; MULTIPLY TH 
UP H 


SEQ 0089 


DO A ab CAL 
CORRECT THE 
SHOW NON-DAT 


mum 


TRACK OR IF 


S 
N *$SEC’ 
OF THE BAD SECTOR FILES 
COUNTED FOR 
OUNT 

FLAG A BAD SECTOR 
R/DATA ERROR DURI IFY 
GE CONTROL CHARACTER 
MESSAGE 


THE DEVICE REGISTERS 
FY CONTINUING’ 

IT 
H 
A 


THE ADDRESS OF THE ERROR SECTOR 

LATE THE NUMBER OF SECTORS TRANSFERED 
._ AT LEAST ONE SECTOR TRANSFERED 

TEP AROUND THE ERROR SECTOR 


CHANGE THE ENDING SECTOR ADDRESS 
POINT TO LAST ERROR FREE SECTOR 
COPY THE ENDING 






CORRECT THE ~4 
CTORS * SIZE 
COUNT 


mm 
opie 
w< Com 


K 
; SET THE DATA ERROR INDICATOR 


FMTR8V - Tate RM8O DISKS MACRO M1113 07-yUL-82 15:01 PAGE 2-6 


SYMBOL T 
BEGSEC 000212R TRKER 142R 
CKERR 0016 76R yah g0n 
ENDSEC 10R VFYSEC oeer 
GENHDR= eeeeee GX XFREEC - 
LASTER Q00204R UF = eeeeee 
MSG2V R SCVIDA= teeene Ox 
MSG5V R SCYL = ween GX 
MSG4V a SDSKWC= teeene GX 
MSGSV 000102R SDSTRB= eeeeee GX 
SECTBL Q00144R SFLRGS= tevere G 
- ABS. 0 
1516 130) 
ERRORS DETECTED: 
VIRTUAL ee US 567 yones ( 3 PAGES) 
DYNAMIC ME 7982 WORDS ( 30 PAGES) 


APSED T “00: 27 
ELAPSED TIRE: C300, 30]FMTRBV=C300, 10]FMTRBV 


SFMTEX= 


eenere 
eeeeee 
eeeeee 
senate 
eeenree 
eeeree 
eeneee 
aeenee 
eeeeee 
weeree 


MMDDDADDvV 


sannne GX 
senane GX 
eeenae GX 
waanae GX 
000276RG 
eanane 

eeanae + 
aeanae GX 
seanee GX 


PARAMAAMAM 


PAH 


3 


eeneaee 
senate 
senane 
eeeaee8 
eenanee 
agenane 
ea2aane 
eaenene 
aenene 


SEQ 0090 
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zee 


PORATION, MAYNARD, MASS. 


L 
O CHANGE WITHOUT 
NT BY DIGITAL 


FOR 1HE USE OR R 


Y FO ELIABILITY OF 
S NOT SUPPLIED BY DI ° 


I 
GITAL 


5 
E ENTRY - / . 
SECTR ADRS: / 
SN'T MATCH CURRENT S/Na 


: BEGINNING OF THE DEC144 / FE CYLINDERS 
(558.,13,0) 
: END OF USER SPACE 


(558. aide odlad 


:STORE MIN. CYLINDER ADDRESS HERE 


1 .TITLE FMTR8M = DEFECT ENTRY MODULE 

g “IDENT OS B0/ 

rh : 

5 : COPYRIGHT (C) 1980,1982 

; ; DIGITAL EQUIPMENT €or 

8 : 

9 : THIS SOFTWARE IS FUR 
10 : SINGLE COMPUTER SYSTEM 
11 : OF THE ABOVE COPYRIGH 
12 : COPIES THEREOF, MAY NOT 
1 : TO ANY OTHER PERSON 
14 : WHO AGREES TO THESE LIC 
15 : THE SOFTWARE SHALL AT A 
17 : THE INFORMATION IN TH 
18 : NOTICE AND SHOULD NOT B 
19 : EQUIPMENT CORPORATION. 
21 : DIGITAL ASSUMES NO RESPONS 
22 : ITS SOFTWARE ON EQUIPMENT W 
24 : 

25 > VERSION 01.00 

27 > C. HESS 18-AUG-80 
28 ; M. LEAVITT © O2=JUL~82 
30 : 

31 ; 

32 > MESSAGES 

33 5 

34, 

35 .NLIST BEX 

37 000000 125 104 102 MSGIR8: .ASCIZ /UDBSF / 
38 000007 115 123 102 : ,ASCIZ /MSBSF/ 
39 000015 123 123 106 : -ASCIZ /SSF/ 

40 000021 106 105 040 : .ASCIZ /FE BAD S 
41 000040 104 125 120 : .ASCIZ /DUPLICAT 
42 000063 106 111 114 “ASCIZ /FILE FUL 
43 090100 105 116 124 “ASCIZ /ENTER BA 
44 900126 103 131 114 “ASCIZ /CYL,TRK 
45 000145 110 104 101 “ASCIZ @HDA S/N 
47 

48 ; LBN CONSTANTS 

50 000210 000003 151040 FELBN: .WORD 3,151040 
32 000214 000003 151037 USRLBN: .WORD 3.151037 
54 

35 : MINIMUM/MAXIMUM STORAGE FOR INPUT ROUTINE 
57 000220 000000 MINCYL: .WORD 0 


SEQ 0091 
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36 000596 500000 MAXCTL: WORD STORE max CYLINDER ADDRESS HERE 
60 000226 000009 MAXTRK: .WORD : "TRACK 


Cc 8 
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63 - 

64 ; **=SRMBOM-MANUAL INPUT OF UDBSF OR SSF DATA 

66 : THIS ROUTINE WILL ACCEPT MANUALLY INPUTTED DATA FOR EITHER THE 
67 ; UDBSF OR SSF FILES AND RE-WRITE THESE FILES TO THE RMBO DISK. 
69 > INPUTS: 

70 : NONE 

71 ; 

7 s OUTPUTS: 

e, ; RE-WRITTEN UDBSF OR SSF 

r 

77 000230 004767 0000006 SRMBOM::CALL § $ROSSF ; READ SKIP SECTOR FILE 

78 000234 004767 0000006 CALL $ROBSF : READ THE MDBSF & UDBSF 

79 000240 012701 000060 MOV #60,R1 : SET 2 LINE FEED CONTROL 

80 000244 012700 000100' MOV #MSGCRE,RO : GET ADDRESS OF MES “AGE 

81 000250 004767 0000006 CALL $PRNTO : PRINT ‘ENTER BAD SECTR ADRS:’ 
83 000254 004767 000554 1$: CALL NPUT : GET SSF ENTRIES 

84 000260 001403 BE : IF £0, FINISHED 

85 000262 004767 000024 CALL  $DSTRB : DISTRIBUTE ENTERED ADDRESS INTO CORRECT FILE 
86 000266 000772 BR 1$ * CONTINUE 

BB 000270 904767 0000006 2$: CALL  $RBOSF : FORMAT THE BSF/SSF TRACKS 

89 G00¢74 004767 0000006 CALL $WTSSF > REWRITE THE SSF 

90 000 004767 0000006 CALL $WTBSF > RE“WRITE THE BSF 

91 000304 105067 0000006 (LAB : CLEAR THE MODIFY FLAG 

3 000310 000207 RETURN 

94 + 

95 ;**-SDSTRB-ROUTINE WILL DISTRIBUTE THE DEFECT ADDRESSES 

97 : THIS ROUTINE DISTRIBUTES THE OPERATOR ENTERED ADDRESS TO THE CORRECT 
98 : DEFECT FILE AND CHECKS FOR DUPLICATION IN THE SSF. 
100 : INPUTS: 
101 : SCYL = OPERATOR ENTERED CYLINDER ADDRESS 
102 : $TRK = OPERATOR ENTERED TRACK ADDRESS 

103 : $SEC = OPERATOR ENTERED SECTOR ADDRESS 

104 : SHDREG IF DEFECT IS A HEADER DEFECT 
106 : OUTPUTS: 
107 : 
199 ° 
110 000312 105067 0000006 SDSTRB::C(LRB SKPFRE > CLEAR THE SKIP SECTOR FLAG 
111 900316 004767 0000006 CALL  $SRSDF : SEE IF ENTRY IN THE 

112 000322 103405 acs 1 : IF CS, NO 

113 0003¢4 012704 000015° MOV #MSG3RB,RG : DUPLICATE ENTRY MESSAGE 

114 0003 004767 000410 CALL DUP : TYPE THE MESSAGE 

115 000354 000556 BR 13$ : TRY AGAIN 

116 000336 105767 0000006 1$: TSTB © SHORFG : SEE IF DEFECT IS A HEADER DEFECT 
117 000342 001041 BNE 4 : IF NE, IT IS 

118 000344 012701 000000C MOV #SSSF*<2e$SSFHD>-4,R1 |; SSF ADDRESS 

119 000350 012702 000000C MOV #SSSF+<1000*S$SSFLND=2,R2 ; SSF LENGTH 


SEQ 0094 
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© 
& 


olelelelolq) 
SMI NUINO NO 


0000006 
0000006 


0000006 
0000006 177302 
0000006 177274 


0000006 
177264 0000006 


177256 0000006 


BR 13$ 

11$: MOV SCYL,(R1)¢ 
MOVB SSEC,(R1)¢ 
MOVB STRK,(R1)¢ 
TSTB SKPF RE 
BEQ 3$ 

12$: TSTB SHDRFG 
BEQ 13$ 
CLRB SHDRFG 
INCB $SEC 
BR 5$ 

13$: RETURN 


; INPUTS: 


: SCYL.STRK,SSEC LOADED 
> RETURNS: 
: Cs ENTRY IS NOT F 
; CC ENTRY IS FOR F 
CHKFE: CALL SCVIDA 
CMP SLBNH,FELBN 
CMP SLBNL ,FELBN*2 
1$: RETURN 


AGAIN 


*+ 
; *@~CHKFE@SEE IF THE DEFECT ADDRESS ENTRY IS FOR THE FE CYLINDERS 


YLINDERS 


CONVERT THE PHYSICAL ADDRESS TO AN LBN 
CHECK HIGH L 

IF £0, DON’T LOOK ANY MORE 

CHECK THE LOW LBN 


-¢ 
; s*@CKUSR-SEE IF THE DEFECT ADDRESS ENTRY IS FOR THE USER CYLINDERS 


: INPUTS: 

; SCYL,STRK,SSEC LOADED 

: RETURNS: 

: CS ENTRY IS NOT FOR THE USER CYLINDERS 

; cc ENTRY 1S FOR USER CYLINDERS 

CKUSR: CALL bd oe ; CONVERT THE PHYSICAL ADDRESS TO AN LBN 
CMP USRLBN, SLENH ; CHECK HIGH LBN 
BHI : IF LO, DON'T LOOK ANY MORE 
CMP USRLBN¢2,SLANL ; CHECK THE LOW LBN 

1§: RETURN ; 


6 


*e=-DUP-DUP ROUTINE WILL ISSUE 


INPUTS: 


OUTPUTS: 
NONE 


THE DUPLICATE ENTRY MEESAGE FOR SPECIFIED FILE 


THIS ROUTINE WILL ISSUE THE DUPLICATE ENTRY MESSAGE FOR THE SPECIFIED FILE 


R4 = ADDRESS OF SPECIFIED FILE MESSAGE 





F 
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234 : 

si ; 

237 000744 012703 000040' DUP: MOV #MSG7RB,R3 :GET DUPLICATE ENTRY MESSAGE 

$38 000750 012700 0000006 MOV #SBUFRKX,RO :GET ADDRESS OF OUTPUT BUFFER 

239 000754 004767 000000G CALL $MOV ;PUT MESSAGE IN OUTPUT BUFFER 

240 000760 West MOV sGET ADDRESS OF SPECIFIED FILE 
241 00076 00476 0000006 CALL smOvE :PUT THAT IN QUTPUT BUFFER 

see C0076 012700 000000G MOV #SBUFRK,RO :GET ADDRESS OF MESSAGE BUFFER 

245 000772 004767 C00000G CALL SPRINT :PRINT [T 
305 000776 000207 RETURN ‘ 

46 : 
sth 3 te-FULL@=FULL ROUTINE WILL ISSUE THE FILE FULL MESSAGE FOR SPECIFIED FILE 
249 s INPUTS: 
. : R4 = ADDRESS OF FILE NAME MESSAGE 

5) : 
252 : OUTPUTS: 
253 ; NONE 
254 : 
$e i 
257 001000 012763 000063' FULL: MOV #MASGBRB,RS sGET FILE FULL MESSAGE 
258 001004 012700 0000006 MOV @SBUFRK,RO :GET ADDRESS OF OUTPUT BUFFER 
259 001010 004767 0000006 CALL veg 44 sPUT MESSAGE IN OUTPUT BUFFER 
260 001014 010403 MOV RGR :GET ADDRESS OF FILE NAME MESSAGE 
261 001016 004767 0000006 CALL $MOVE :PUT THAT IN OUTPUT BUFFER 
262 001022 012700 000000G MOV #SBUFRK,RO :GET ADDRESS OF MESSAGE BUFFER 
263 001026 004767 0600006 CALL SPRINT :PRINT [T 
264 001022 000207 RETURN s 
265 
266 3¢ 
oe + te=-J]NPUT<INPUT DATA FOR SPECIFIED FILE 
269 : THIS ROUTINE WILL PROMPT THE USER FOR THE DESIRED CYLINDER, TRACK, AND SECTOR 
270 3; ADDRESS. 
271 
272 : INPUTS: 
273 : NONE 
275 : OUTPUTS: 
276 : SCYL, STRK, AND SSEC SET TO SPECIFIED VALUES 

77 : SHDRFG = 1 IF THE ENTRY HAD AN 'H" SUFFIX 

72 ; ie 2 a} NO MORE DATA TO INPUT 
279 : If 2 = 0 MORE DATA TO INPUT 
280 : 
$82 " 
283 001034 105067 0000006 INPUT: CLRB ; CLEAR THE HEADER FLAG 

284 001040 012703 0000006 MOV s POINTER TO PHYSICAL DEVICE GEOMETRY 
285 001044 004767 009000G CALL : UPDATE MAX VALUES 

$B6 001050 012700 000126‘ 1$: MOV : OPERATOR PR 

87 001054 004767 000000G CALL : GET INPUT FROM THE USER 

288 001060 001001 BNE ; IF NE, INPUT FROM USER 

$50 001062 000207 RE TURN : 


291 001064 
$38 001070 
295 001074 
294 001100 
295 001102 
296 EEE 
297 00111 
298 001114 
299 001120 
300 001124 
301 0011 $ 
302 0011 
305 001134 
304 

305 001140 
306 001144 
307 001150 
308 001152 
309 001156 
310 001160 
311 001164 
a1¢ 001166 
31 

314 001172 
315 901176 
316 001202 
317 001204 
318 001210 
319 001214 
320 001216 
321 001222 
322 001224 
323 001226 
324 001232 
325 001236 
326 

327 

399 

$50 


Basar wr 
S 
— 
~ 
= 
r= 


001244 
001250 
001256 
39 pol eee 
$09 001270 
1 OOS a6 
a0¢ 001 
343 001304 
344 001306 
3g 0013514 
a? 


ssxcses osese 
VIMO O 


0000006 


0000006 
000054 


177050 
177036 
0000006 
0000006 
006037 
0000006 
000110 
0000006 


0000006 
0000006 


176754 
176752 
00106 


0 
000015 
0000006 


001056 
001056 


000015 


176746 
176742 


176720 


176706 


2$: 


3$: 
4$: 


LDLMTS: CLR 
LR 


1§: 
END 


V 
RE TURN 
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Lm ao 
#'#, (ROS 
$CDTB 
#*.,,R2 


LMTS 
oMAXCYL 


INCYL 


INTRK 


DT 
#351. 


35 C 
#°H,R 


SHDRFG 


WSDEDRA DEDSeDLlBe BDEADLl-Ar & 
Rr -—FoO —WM— PPO —M—M— oF 
— 
zz 3 
cee 
oa 
a4 
x 
x 


#$MSG32,R0 
pa 


+ 
; ®#-LDLMTS-LOAD LIMITS 


RMINCYL 


WINTRE 

$ ¢ | pMAXCYL 

#13, .MAXTRK 
Su FE 


#358 
ni ,#558 


#13. .MINTRK 


MINCYL 


i 
TINE. 


K ADDRESS LIMITS 

NPUT 

NDER ADDRESS 
RATOR 


esr ates! ©) asl) 
— Din 
mer 


oF me MN 
wm-~< 


O*OOoOFVIO™NCZ 
zaAvZo<cm 


J 
PA 

ADD 
CYL 
CYL 
CYL 
CYL 
DER 


T TH ACK ADDRESS 
K 4 PROPER SEPARATOR 


E 
FOR VAL'D TRACK ADDRESS 
1, INVALID TRACK ADDRESS 
FOR VALID TRACK ADDRESS 
T, INVALID TRACK ADDRESS 
AD THE TRACK ADDRESS 


C 
I 
J 
j 
J 
J 
T 


oc oOo mae FY SS 
ATA]SZO< OFX 

m 

2 29090900R 


Coe me OO ee fe OO 
= 


oro ro "zo ow 


CONVERT THE SECTOR ADDRESS 
100K FOR VALID SECTOR ADDRESS 
IF HI, INVALID SECTOR ADDRESS 
LOAD THE SECTOR ADDRESS 

HEADER ERROR ADDRESS ? 

SET THE HEADER ERROR FLAG 
SHOW MORE INPUT 

INVALID RESPONSE 

TYPE THE MESSAGE 

CONT INUE 


; THIS ROUTINE LOADS THE MINIMUM AND MAXIMUM DISK ADDRESS LIMITS 
; USED BY THE ‘INPUT* SUBROU 


ASSUME, MIN. CYLINDER= 0. 
ASSUME, MAX. CYLINDER= 560. 
FORMATTING FE CYLINDERS ONLY ? 
MIN, CYLINDER= 558, 

IS CYLINDER INPUT 558. 2 


BR IF NO 
MIN. TRACK= 13. 


bee 
~" 


SEQ 0097 


H 6 
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SYMBOL TABLE 


CHKFE oN 74R MSGCR 100R SCDIB = sveeee Gy PRMPT= seneee GX SSRIRK= eeeeee GX 
CKUSR 00720R MSGDR 126R SCVIDA= «eeeee Gx PRNTO= seeene 6X SSRUDF= seeeee Gx 
DPARS = eeteee GX MSGER 145RG acyl = etter RDBSF= seeeee GX SSSF <= seeeee GX 
DUP 000744R MSGIR Re SDSTRB 00031 2RG. RDSSF= eeeene GX SSSFHD= seee0e Gx 
FELBN 000210R MSGR 0 R SFEBSF= seeeee Gy me seenne GX SSSFLN= eeeeee Gx 
FULL C01 R MSG5R 00015R SHDRFG= eeteee GX RMBOM 000230RG SSWEFE= seeeee GX 
NPUT 001034R MSG4&R 00021R SLBNH = teeeee GX RBOSF= eeeeee GK SSWMCD= «eevee Gx 
LOLMTS 001240R MSG7R 8 aor SLBNL = *eeeee GX SEC = #aenen GX STIRK = #e0e08 GX 
MAXCYL 000224R MSGBR 00065R sneve = etecee GX tA «eeeen GX SUDBSF= eee" GX 
MAXTRK O00226R PFRE= weeeee GX MSG32= eeeeee GX SRMDF= seneee GX SUPDMK= eee0ee GX 
MINCYL 000220 USRLBN 000214R SPHYDV= teeeee GX SSRSDF= eeeees GX SUTBSF= seenee Gy 
MINTRK 000222R SBUFRX= eeeeee GX SPRINT= eeeeee GX SSRSSF= seaeee GX SWISSF= eeeeee Gy 


- ABS. 

001316 
ERRORS DETECTED: 0 
MEMORY USED: oe WORDS ( 3 PAGES) 
DYNAMIC i 794 42 wW ORDS ( 30 PAGES) 
ELAPSED TIME: 


00:00: 5 , 
£300, 20]FMTR8M,[ 300, 30]FMTRBM=[ 300, 10]FMTREM 


000 
001 
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eNLIST BEX 


CTOR FILE) CONTENTS/ 





Bess 


et to 4 





™ ™ Se SS Se 


PERSE RE REPS RR PE PG RG 





NOSNOING FODOSS 


MELA M OMNI CUA © 
NK NOK OMMNNE NT 


iieee owns 
ee oto 


saeeeeescs 


Oe OM “2 OoewuM~T 
ww 


Hee rm eee me WINN MMs Miwa 


; LIST SSF SWITCH 


0 


BYTE 


SSFLST: 


000 


Ww 
| a) 
E 
~ 
wv 


~-EVEN 


48 
Se 


; OUTPUT CONVERSION BUFFER 


-Bikw 10, 


DPARS: 


50 000336 


51 
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53 :+ 
2c ; t#-$RMBOL-DISPLAY THE CONTENTS OF THE MOBSF, UDBSF, AND SSF 
56 : THIS ROUTINE WILL DISPLAY THE CONTENTS OF THE MDBSF, THE UDBSF 
of > AND THE SSF FILES. 
$9 : INPUTS: 
<4 : NONE 
6 : OUTPUTS: 
6 : THE CONTENTS OF THE MDBSF, UDBSF, AND SSF PRINTED ON ‘TI:° 
6% : 'S$SWLST’ CLEARED 
66 
67 .ENABL LSB 
69 000362 004767 0000006 SRMBOL::CALL § $RDSSF s READ THE SKIPPED SECTOR FILE (SSF) 
70 000366 004767 0000006 CALL  $RDBSF * READ THE MDBSF AND THE UDBSF 
ie : DISPLAY THE SSF CONTENTS 
74 000372 012700 000000' MOV #sGit ,RO : "SSF (SKIPPED SECTOR FILE) CONTENTS’ 
5 000376 012701 000060 MOV #60,R1 ® CARRIAGE CONTROL CHARACTER 
76 000402 904767 0000006 CALL  $PRNTO ; 
77 000606 012701 0000006 MOV #SSSF RI : SERIAL NUMBER POINTER 
78 000412 004767 000600 CALL §_- HDASN : PRINT THE HDA SERIAL NUMBER 
79 000416 012700 0000006 v #SBUFRX,RO > BUFFER POINTE 
BO 000422 012703 000101' MOV #MSG4L,R3 : "CREATION DATE: ° 
81 000426 004767 0000006 CALL V > LOAD THE BUFFER 
82 000432 012703 #SSSF+4,R3 : DATE FIELD POINTER 
83 000436 004767 000240 CALL = SFDATE : PRINT THE SSF DATE FIELDS 
84 000442 012700 G MOV #SBUFRX,RO > BUFFER POINTER 
85 000446 012703 000207° MOV #MSGOL RS > "REVISION DATE: ° 
86 000452 004767 0000006 CALL MOV : LOAD THE BUFFER 
87 000456 012703 G #SSSF+6,R3 : DATE FIELD POINTER 
8B 000462 004767 000214 CALL SFDATE : PRINT THE SSF DATE FIELDS 
89 000466 012700 0000006 MOV #SBUFRX,RO : BUFFER POINTER 
90 000472 012703 000227° MOV #MSGIOL.R3 > "REVISION NUMBER: ° 
91 000476 004767 0000006 SMO : LOAD THE BUFFER 
92 000502 016701 0000106 $SSF+10,R1 > REVISION NUMBER 
93 000506 005002 > ENABLE ZERO SUPRESSION 
94 000510 004767 0000006 SCBDMG > CONVERT 
95 000514 105010 (RO) > ASCIZ TERMINATOR 
36 900516 012700 0000006 #SBUFRK,RO * OUTPUT POINTER 
97 000522 004767 0000006 $PR : 
98 000526 012703 000000C #SSSF ¢<2e$SSFHD>.R3 - BEGINNING OF SSF DATA FIELD 
99 000532 112767 177777 177575 #-1,SSFLST : SET SSF LIST FLAG 
100 000540 004767 000270 BSFDAT > PRINT THE SSF FILE CONTENTS 
101 000544 105067 177565 SSFLST * RESET THE SSF LIST FLAG 
vw 
198 : DISPLAY THE MDBSF CONTENTS 
105 000550 012700 000043" MOV #MSG2L RO : "MDBSF CONTENTS’ 
106 000554 105767 00000UG TSIB = $SWLOG > SEE IF LOGICAL DISPLAY 
107 000560 001402 BEQ : IF €Q, N 
108 000562 012700 000251° MOV #MSG11L,RO : CHANGE TO "MDBSF LOGICAL CONTENTS 
109 600566 012701 000060 10$: MOV #60,R1 : CARRIAGE CONTROL CHARACTER 
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110 000572 904767 0000006 CALL § $PRNTO : 
111 060576 012701 0000906 MOV #SMDBSF RI ' MDBSF S/N POINTER 
118 00060 004767 00041 CALL : TYPE THE SERIAL NUMBER 
11 000606 0127 3 0000106 MOV #SMDBSF+10,R3 =: MDBSF DATA POINTER 
114 000612 004767 000216 CALL  BSFDAT : DISPLAY THE MDBSF 
119 ; DISPLAY THE UDBSF CONTENTS 
118 000616 012700 000062° MOV #MSG3L,RO : "UDBSF CONTENTS' 
119 000622 105767 0000006 TSTB SWLOG : SEE IF LOGICAL DISPLAY 
131 §09680 912708 000302" Movs BASGI2L.RO. ss  FHANGE TO “UDBSF LOGICAL CONTENTS® 
1 é 0006 9335 1 $0065 20$: MOV weOoR’ ' : CARRIAGE CONTROL CHARACTER 
123 000640 004767 0000006 CALL  $PRNTO ; 
124 000644 012701 0000006 MOV #SUDBSF ,R1 : UDBSF S/N POINTER 
125 000650 004767 00034 CALL _- HDASN : TYPE THE SERIAL NUMBER 
126 000654 612703 0000106 MOV #SUDBSF+10,R3 =; UDBSF DATA POINTER 
127 000660 004767 000150 CALL T : DISPLAY THE UDBSF 
128 000664 012700 33° MOV #SPACE ,RO + BLANK LINE 
129 000670 004767 0000006 CALL $PRINT : PRINT THE LINE 
130 000674 105067 0000006 CLRAB 3s $SWLST : CLEAR THE "LIST’ FLAG 
131 000700 000207 RETURN : 
133 .DSABL LSB 
is 
s¢ 
136 > *e=SFDATE=DISPLAY THE SSF DATE FIELD CONTENTS 
138 : THIS ROUTINE PRINTS THE CREATION AND REVISION DATE FIELDS 
139 > FROM THE SSF 
140 : 
141 > INPUT: 
142 : RQ = BUFFER POINTER 
143 ; R3 = DATE FIELD POINTER 
145 : OUTPUT: 
146 ; NONE 
147 : 
129 ” 
150 000702 011301 SFDATE: MOV (R3) RI : DATE 
151 000704 042701 177037 BIC #°C740,R1 : LEAVE MONTH CODE 
152 000710 005701 R1 ; LOOK FOR VALID MONTH 
153 000712 001436 10$ > IF €Q, MONTH CODE OF ZERO 
161 000726 020127 000014 R1,#12. : CHECK MONTH UPPER LIMIT 
162 000732 101026 108 : IF HI, MONTH CODE ERROR 
163 000 010167 177400 R1,DPARS#2 : MOVE MONTH 
164 000740 011301 (R$) RI : GET THE DATE AGAIN 
165 000742 042701 177740 #°C37,R1 * LEAVE THE DAY CODE 
166 000746 020127 000037 R1,831. : CHECK VALIDITY 
167 000752 101016 10$ > IF HI, INVALID DAY 
168 000754 010167 177362 R DPARS#4 : MOVE 
169 000760 116301 000001 1(R3) RI : GET THE YEAR CODE 
170 000764 006201 RI : RIGHT JUSTIFY 
171 000766 062701 0000006 #BASYR R1 : ADD THE BASE YEAR 
172 000772 010167 177340 R1,DPARS > YEAR 
173 000776 012701 00336' #DPARS,R1 : INPUT BUFFER POINTER 


SEQ 0102 
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231 001212 0007 BR 208 : LOOP 
238 pe1s14 nite 40$: RETURN : sed 

234 3+ 

235 ; **-HDASN@DISPLAY THE HDA SERIAL NUMBER 

237 : THIS ROUTINE CONVERTS THE HDA SERIAL NUMBER FROM THE DEC STD 144 
238 : FILES OR THE SSF TO ASCII AND PRINTS IT. 

240 : INPUTS: 

241 R1 = SERIAL NUMBER FIELD POINTER 

2h > OUTPUTS: 

244 ; NONE 

245 : 

6 

248 001216 012167 177116 HDASN: MOV (R1)+,DPARS+2 ; EXCHANGE S/N MSB & LSB 

$85 001956 012701 000886" ee Pepe 
251 001232 O15 908 000121" MOV #MSG5SL.R3 : "HDA S/N: ° 

25¢ 001236 012700 0000006 MOV #SBUFRK,RO : BUFFER POINTER 

253 001242 004767 0000006 CALL $MOVE > LOAD THE BUF 

254 001246 005002 CLR R2 : SUPRESS LEADING ZEROS 

255 001250 004767 0000006 CALL § $CDDMG > CONVERT THE SERIAL NUMBER TO ASCII 
256 001254 105010 CLRB  —s- (RO) : ASCIZ TERMINATOR 

257 001256 012700 0000006 V #SBUFRX,RO > BUFFER ADDRESS 

258 001262 004767 0000006 CALL $PRINT : PRINT THE SERIAL NUMBER 

259 001266 000207 RETURN : 

261 000001 END 
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BASYR = #eete8 GX MSG2L 45R SFDATE 
BSFDAT 0 MSGSL R SPACE i 
PARS 000556R MSG4L R asf bat # 
HDASN 001216R MSG5 121R BUFRX= stteee G 
2 0 R MSG6L 1 ar SCBDMG= teeeee GX 
$G1 000 MSG7L 147R SCDDMG= eeeeee GX 
MSGI11L 000 MSG8L 8 Aron SCYL = teeeee GX 
MSGi2L 000502R MSG9L 0207R SDAT = stenee GX 
- ABS. 000000 000 
001270 001 
ERRORS DETECTED: 0 
VIRTUAL MEMORY USER: 471 WORDS ( 2 PAGES) 
ba — . a 942 WORDS ( 30 PAGES) 


| TIME: 00:00:10 
300, SOJFMTRAL, (300, 30]FMTR8L=C300, 10]FMTRBL 
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aes 


052 
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052 


040 


ITLE FMTINT = INITIALIZE MOBSF, F, SSF 
DENT /01_00/ I LIZE MOBSF, UDBSF, $s 
COPYRIGHT (C) 1980 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 
THIS SOF TWAR FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
sine oo R _StSTER AND MAY BE COPIED gM WITH THE INCLUSION 
H OPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER 
COPIES THEREOF aay NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
iain ANY OTHER PERSON Buee’ t FOR USE _ON SUCH SYSTEM AND TO ONE 
O AGREES TO THESE LICENSE TERMS. TITLE 10 AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
D SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 


NOTICE AN 
EQUIPMENT CORPORATION. 


DIGITAL ASSUMES NO RESPONSIB 
ITS SOFTWARE ON EQUIPMENT WHI 


7 ITY OF 


ILITY FOR THE USE OR RELIABIL 
CH IS NOT SUPPLIED BY DIGITAL. 


VERSIUN 01.00 
15-AUG-80 


C. HESS 
>; M. LEAVITT 14-JAN-81 


-NLIST BEX 


aoe eASCIZ /** WARNING - BAD SECTOR FILES WILL BE OVERWRITTEN ON / 


SEQ 0105 
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37 : 

+ : **-SRMBOI-INITIALIZE THE RMBO'S MDBSF, UDBSF, & SSF TRACKS 

40 : THIS ROUTINE WiLL FORMAT THE DEC STD 144 TRACK AND THE SSF TRACK 
41 : AND WRITE NULL 16 BIT DEC STD 144 AND SKIP SECTOR FILES. 

4 :; INPUTS: 

44 ‘ NONE 

45 ° 

46 : OUTUTS: 

47 ; NONE 

29 ° 

50 000066 012703 000000' $RMB01: :MOV #MSGIRI,R3 : WARNING MESSAGE ADDRESS 

51 000072 004767 0000006 CALL : STORE MESSAGE AND DEVICE/UNIT 
52 000076 012703 0000006 MOV #$MSG624,,R3 : MESSAGE SUFFIX 

$3 000102 004767 0000006 CALL MOV * LOAD THE SUFFIX INTO THE MESSAGE BUFFER 
54 000106 012700 0001446 MOV #SBUF +100. .RO : PRINT THE WARNING MESSAGE 

55 000112 012701 000060 MOV #60,R1 : 2 LINE FEED CARRIAGE CONTROL 
56 000116 004767 0000006 CALL SPRNTO : PRINT WARNING MESSA 

57 000122 012700 0000006 MOV #$MSG31,R0 : "YES-NO’ MESSAGE POINTER 

58 000126 004767 0000006 CALL $PRMPT : PROMPT AND GET R 

59 000132 001404 BEO 1$ : IF EQ, RESPONSE "NO’ 

60 000134 122767 000131 0060006 CMPB so #* Y , SBUF RX : SEE If RESPONSE WAS ‘YES’ 

61 000142 001402 BEQ $ : IF €Q, RESPONSE WAS ‘YES’ 

62 000144 000167 0000006 1$: JMP FMTEX > EXIT 

63 000150 012703 000374 2$: MOV 56.-4,R : GET NUMBER OF ENTRIES TO RESET 
64 000154 012700 0000006 MOV #SMDBSF ,R > GET START OF MDBSF 

65 000160 016720 0009006 MOV SSNAME,(RO)+ : STUFF THE NEW SERIAL NUMBER 
66 000164 016720 0000026 MOV SSNAME+2,(RO)+ =: ... 

67 000170 005020 CLR (RO)+ : BLANK WORD 

68 000172 005020 CLR (RO)+ : SHOW NOT AN ALIGNMENT DISK 
69 000174 012720 177777 3$: MOV #=1, (RO) > EMPTY THE MDBSF 

70 000200 005303 DEC R3 : FINISHED? 

71 000202 001374 BNE : IF NE NO 

72 000204 012700 o00000G MOV FRO > GET START OF UDBSF 

73 000210 016720 0000006 MOV ,(RO)* =: STUFF THE NEW SERIAL NUMBER 
74 000214 016720 0000026 MOV #2,(RO)* : 2... 

75 000220 005020 CLR )+ + BLANK WORD 

76 000222 005020 CLR RO)+ : SHOW NOT AN ALIGNMENT DISK 
77 000204 012703 000374 MOV #256.-4,R3 : GET NUMBER OF ENTRIES TO RESET 
78 000230 012720 177777 4$: MOV #-1, (ROS+ : EMPTY THE UDBSF 

79 000234 005303 DEC R3 : FINISHED? 

80 000236 001374 BNE 4 - IF NE NO 

81 40 012703 000000C MOV #256.*<SSSFLN>,RS - SSF SIZE 

82 000244 012700 0000006 MOV #$5SF RO > SSF BUFFER POINTER 

83 000250 012720 177777 5$: MOV #-1, (RO)+ : CLEAR A LOCATION 

84 000254 005303 DEC R3 : COUNT THE LOCATION 

85 000256 001374 BNE 54, : IF NE, NOT FINISHED 

B6 000260 016767 0000006 000000G MOV SSNAME » $55 : SERIAL NUMBER LSS 

87 000266 016767 0000026 0000026 MOV SSNAME+2,$SSF+2 ; SERIAL NUMBER MSB 

aa 000874 016767 0000006 000004G MOV DPARS,$SSF#4 |: CREATION DATE 

89 000302 016767 0000006 0000066 MOV DPARS,$SSF+6 ; REVISION DATE 

90 000310 005067 000010G CLR * > REVISION NUMBER 

91 000314 012767 000001 0000126 MOV #1, $S55412 : SSF DATA TYPE INDICATOR (16 BIT) 
99 000336 005067 0000226 CLR SSF +ge : NUMBER OF SSF ENTRIES 
100 000342 005067 0000246 CLR $SSF +24 > CHECKSUM 
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101 000346 004767 a4 CALL SRBOSF : CALL THE "SPECIAL FORMATTER’ 

Ie 000352 004767 8 0006 CALL SWIBSF ; unt THE DEC STD 144 INFORMATION 
103 000356 004767 4445 CALL SWTSSF ; WRITE THE SSF 

104 000362 105067 0000006 CLRB SSWINT ; CLEAR THE INITIALIZATION FLAG 

ine 000366 000207 6$: RETURN ; 

107 000001 ~END 
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DPARS = seeeee GX SMDBSF - SPRMPT= eeeeee GX 


eeeeee GX 


Fe 
MSGIRI QO0000R SMOVE = teeeee GX SPRNIO= eeeeee GX 
SBUF = teeter GX are seeeee GX SRMB01 000066RG 
SBUFRKX= weeeee GX SMSG51= eeeeee GX SRBOSF= eeeeee GX 


SEMTEX= ewenree GX 

» ABS. 000000 000 

, 000370 001 
ERRORS DETECTED: O 


VIRTUAL MEMORY USED: 489 yones ( 2 — 
Apo i ar a” Rese: WORDS ( 30 PAGES) 


TIME: 00:09: 
£300.20 20)FMTINT, 300. SOJFMTINT=[ 300, 10]FMTINT 
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